#load("vcomball20210902.Rda")
load(path(here::here("InitalDataCleaning/Data/vcomball20210902.Rda")))
d <- vcomball
# load("vsurvall20210902.Rda")
# d <- vsurvall

#load("vsiteid20210601.Rda")
new.d <- data.frame(matrix(ncol=0, nrow=nrow(d)))
new.d.1 <- data.frame(matrix(ncol=0, nrow=nrow(d)))

SITE ID

  • Codes(based on Surveyid)
    • 10 Greater CA
    • 20 Georgia
    • 25 North Carolina
    • 30 Northern CA
    • 40 Louisiana
    • 50 New Jersey
    • 60 Detroit
    • 61 Michigan
    • 70 Texas
    • 80 Los Angeles County
    • 81 USC-Other
    • 82 USC-MEC
    • 90 New York
    • 94 Florida
    • 95 WebRecruit-Limbo
    • 99 WebRecruit
  siteid <- as.factor(trimws(d[,"siteid"]))
  #new.d.n <- data.frame(new.d.n, siteid) # keep NAACCR coding
  
  levels(siteid)[levels(siteid)=="80"] <- "Los Angeles County.80"
  levels(siteid)[levels(siteid)=="30"] <- "Northern CA.30"
  levels(siteid)[levels(siteid)=="10"] <- "Greater CA.10"
  levels(siteid)[levels(siteid)=="60"] <- "Detroit.60"
  levels(siteid)[levels(siteid)=="40"] <- "Louisiana.40"
  levels(siteid)[levels(siteid)=="20"] <- "Georgia.20"
  levels(siteid)[levels(siteid)=="61"] <- "Michigan.61"
  levels(siteid)[levels(siteid)=="50"] <- "New Jersey.50"
  levels(siteid)[levels(siteid)=="70"] <- "Texas.70"
  levels(siteid)[levels(siteid)=="99"] <- "WebRecruit.99"
  levels(siteid)[levels(siteid)=="21"] <- "Georgia.21"
  levels(siteid)[levels(siteid)=="81"] <- "USC Other.81"
  levels(siteid)[levels(siteid)=="82"] <- "USC MEC.82"

  siteid_new<- siteid
  d<-data.frame(d, siteid_new)
  new.d <- data.frame(new.d, siteid)
  new.d <- apply_labels(new.d, siteid = "Site ID")
  new.d.1 <- data.frame(new.d.1, siteid)
  siteid_count<-count(new.d$siteid)
  colnames(siteid_count)<- c("Registry", "Total")
  kable(siteid_count, format = "simple", align = 'l', caption = "Overview of all Registries")
d<-d[which(d$siteid_new == params$site),]
new.d <- data.frame(matrix(ncol=0, nrow=nrow(d)))
#new.d<-new.d[which(new.d$siteid == params$site),]

SURVEY ID

  • Scantron assigned SurveyID
  surveyid <- as.factor(d[,"surveyid"])
  isDup <- duplicated(surveyid)
  numDups <- sum(isDup)
  dups <- surveyid[isDup]
  
  new.d <- data.frame(new.d, surveyid)
  new.d <- apply_labels(new.d, surveyid = "Survey ID")
  
  print(paste("Number of duplicates:", numDups))
## [1] "Number of duplicates: 0"
  print("The following are duplicated IDs:")
## [1] "The following are duplicated IDs:"
  print(dups)
## factor(0)
## 241 Levels: 600004  600019  600021  600031  600032  600042  600056  600057  600066  600107  600114  600115  ... 602139
  print("Number of NAs:")
## [1] "Number of NAs:"
  print(sum(is.na(new.d$surveyid)))
## [1] 0

LOCATION NAME

  • Name of Registry delivery location
  locationname <- as.factor(d[,"locationname"])
  
  new.d <- data.frame(new.d, locationname)
  new.d <- apply_labels(new.d, locationname = "Recruitment Location")
  temp.d <- data.frame (new.d, locationname)

  result<-questionr::freq(temp.d$locationname, total = TRUE)
  #Create a NICE table
  kable(result, format = "simple", align = 'l', caption = "Overview of Registry delivery location")
Overview of Registry delivery location
n % val%
Detroit 241 100 100
Total 241 100 100

RESPOND ID

  • From Barcode label put on last page of survey by registries, identifies participant. ResponseID is assigned by the registries.
  respondid <- as.factor(d[,"respondid"])
  #remove NAs in respondid in order to avoid showing NAs in duplicated values
  respondid_rm<-respondid[!is.na(respondid)]
  isDup <- duplicated(respondid_rm)
  numDups <- sum(isDup)
  dups <- respondid_rm[isDup]
  
  new.d <- data.frame(new.d, respondid)
  new.d <- apply_labels(new.d, respondid = "RESPOND ID")
  
  print(paste("Number of duplicates:", numDups))
## [1] "Number of duplicates: 0"
  print("The following are duplicated IDs:")
## [1] "The following are duplicated IDs:"
  print(dups)
## factor(0)
## 241 Levels: 60100006 60100016 60100018 60100025 60100036 60100037 60100038 60100057 60100058 60100059 ... 60102638
  print("Number of NAs:")
## [1] "Number of NAs:"
  print(sum(is.na(new.d$respondid)))
## [1] 0

METHODOLOGY

  • How survey was completed
    • P=Paper
    • O=Online complete
st_css()
  methodology <- as.factor(d[,"methodology"])
  levels(methodology) <- list(Paper="P",
                              Online="O")
  methodology <- ordered(methodology, c("Paper", "Online"))
  new.d <- data.frame(new.d, methodology)
  new.d <- apply_labels(new.d, methodology = "Methodology for Survey Completion")
  temp.d <- data.frame (new.d, methodology)  
  
  result<-questionr::freq(temp.d$methodology, total = TRUE)
  kable(result, format = "simple", align = 'l')
n % val%
Paper 241 100 100
Online 0 0 0
Total 241 100 100

A1: Date of diagnosis

  • A1. In what month and year were you first diagnosed with prostate cancer?
# a1month
a1month <- as.factor(d[,"a1month"])
  
  new.d <- data.frame(new.d, a1month)
  new.d <- apply_labels(new.d, a1month = "Month Diagnosed")
  temp.d <- data.frame (new.d, a1month) 
  
  result<-questionr::freq(temp.d$a1month, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A1:month diagnosed")
A1:month diagnosed
n % val%
1 16 6.6 7.8
10 16 6.6 7.8
11 9 3.7 4.4
12 16 6.6 7.8
18 1 0.4 0.5
2 13 5.4 6.3
3 24 10.0 11.7
32 1 0.4 0.5
4 18 7.5 8.7
5 9 3.7 4.4
6 30 12.4 14.6
7 18 7.5 8.7
8 16 6.6 7.8
9 19 7.9 9.2
NA 35 14.5 NA
Total 241 100.0 100.0 
  #count<-as.data.frame(table(new.d$a1month))
  #colnames(count)<- c("a1month", "Total")
  #freq1<-table(new.d$a1month)
  #freq<-as.data.frame(round(prop.table(freq1),3))
  #colnames(freq)<- c("a1month", "Freq")
  #result<-merge(count, freq,by="a1month",sort=F)
  #kable(result, format = "simple", align = 'l', caption = "A1:month diagnosed")

#a1year
  tmp<-d[,"a1year"]
  tmp[tmp=="15"]<-"2015"
  a1year <- as.factor(tmp)
  #levels(a1year)[levels(a1year)=="15"] <- "2015"
  #a1year[a1year=="15"] <- "2015"  # change "15" to "2015"
  #a1year <- as.Date(a1year, format = "%Y")
  #a1year <- relevel(a1year, ref="1914")

  new.d <- data.frame(new.d, a1year)
  new.d <- apply_labels(new.d, a1year = "Year Diagnosed")
  temp.d <- data.frame (new.d, a1year) 

  result<-questionr::freq(temp.d$a1year, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A1:year diagnosed")
A1:year diagnosed
n % val%
1914 1 0.4 0.5
1915 1 0.4 0.5
1917 1 0.4 0.5
1918 1 0.4 0.5
1937 1 0.4 0.5
1947 1 0.4 0.5
1948 1 0.4 0.5
1950 1 0.4 0.5
1963 2 0.8 0.9
1997 1 0.4 0.5
1998 1 0.4 0.5
20 1 0.4 0.5
2007 1 0.4 0.5
2011 1 0.4 0.5
2012 1 0.4 0.5
2013 1 0.4 0.5
2014 9 3.7 4.1
2015 35 14.5 16.1
2016 51 21.2 23.4
2017 53 22.0 24.3
2018 43 17.8 19.7
2019 9 3.7 4.1
2021 1 0.4 0.5
NA 23 9.5 NA
Total 241 100.0 100.0 
  #a1not
# 1=I have NEVER had prostate cancer
# 2=I HAVE or HAVE HAD prostate cancer
# (paper survey only had a bubble for “never had” so value set to 2 if bubble not marked)"
  a1not <- as.factor(d[,"a1not"])
  levels(a1not) <- list(NEVER_had_ProstateCancer="1",
                         HAVE_had_ProstateCancer="2")
  new.d <- data.frame(new.d, a1not)
  new.d <- apply_labels(new.d, a1not = "Not Diagnosed")
  temp.d <- data.frame (new.d, a1not) 

  result<-questionr::freq(temp.d$a1not, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A1:not diagnosed")
A1:not diagnosed
n % val%
NEVER_had_ProstateCancer 1 0.4 0.4
HAVE_had_ProstateCancer 240 99.6 99.6
Total 241 100.0 100.0

A2: Identify as AA

  • A2. Do you identify as Black or African American?
    • 2=Yes
    • 1=No
a2 <- as.factor(d[,"a2"])
# Make "*" to NA
a2[which(a2=="*")]<-"NA"
levels(a2) <- list(No="1",
                   Yes="2")
  a2 <- ordered(a2, c("Yes","No"))
  
  new.d <- data.frame(new.d, a2)
  new.d <- apply_labels(new.d, a2 = "Month Diagnosed")
  temp.d <- data.frame (new.d, a2) 
  
  result<-questionr::freq(temp.d$a2, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A2")
A2
n % val%
Yes 227 94.2 99.1
No 2 0.8 0.9
NA 12 5.0 NA
Total 241 100.0 100.0

A3: Black or African American group

  • A3. If Yes: A2. Which Black or African American group(s) and other races/ethnicities do you identify with? Mark all that apply.
    • A3_1: 1=Black/African American
    • A3_2: 1=Nigerian
    • A3_3: 1=Jamaican
    • A3_4: 1=Ethiopian
    • A3_5: 1=Haitian
    • A3_6: 1=Somali
    • a3_7: 1=Guyanese
    • A3_8: 1=Creole
    • A3_9: 1=West Indian
    • A3_10: 1=Caribbean
    • A3_11: 1=White
    • A3_12: 1=Asian/Asian American
    • A3_13: 1=Native American or American Indian or Alaskan Native
    • A3_14: 1=Middle Eastern or North African
    • A3_15: 1=Native Hawaiian or Pacific Islander
    • A3_16: 1=Hispanic
    • A3_17: 1=Latino
    • A3_18: 1=Spanish
    • A3_19: 1=Mexican/Mexican American
    • A3_20: 1=Salvadoran
    • A3_21: 1=Puerto Rican
    • A3_22: 1=Dominican
    • A3_23: 1=Columbian
    • A3_24: 1=Other
a3_1 <- as.factor(d[,"a3_1"])
  levels(a3_1) <- list(Black_African_American="1")
  new.d <- data.frame(new.d, a3_1)
  new.d <- apply_labels(new.d, a3_1 = "Black_African_American")
  temp.d <- data.frame (new.d, a3_1)
  result<-questionr::freq(temp.d$a3_1, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Black_African_American")
1. Black_African_American
n % val%
Black_African_American 236 97.9 100
NA 5 2.1 NA
Total 241 100.0 100 
a3_2 <- as.factor(d[,"a3_2"])
  levels(a3_2) <- list(Nigerian="1")
  new.d <- data.frame(new.d, a3_2)
  new.d <- apply_labels(new.d, a3_2 = "Nigerian")
  temp.d <- data.frame (new.d, a3_2)
  result<-questionr::freq(temp.d$a3_2, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Nigerian")
2. Nigerian
n % val%
Nigerian 3 1.2 100
NA 238 98.8 NA
Total 241 100.0 100 
a3_3 <- as.factor(d[,"a3_3"])
  levels(a3_3) <- list(Jamaican="1")
  new.d <- data.frame(new.d, a3_3)
  new.d <- apply_labels(new.d, a3_3 = "Jamaican")
  temp.d <- data.frame (new.d, a3_3)
  result<-questionr::freq(temp.d$a3_3, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Jamaican")
3. Jamaican
n % val%
Jamaican 3 1.2 100
NA 238 98.8 NA
Total 241 100.0 100 
a3_4 <- as.factor(d[,"a3_4"])
  levels(a3_4) <- list(Ethiopian="1")
  new.d <- data.frame(new.d, a3_4)
  new.d <- apply_labels(new.d, a3_4 = "Ethiopian")
  temp.d <- data.frame (new.d, a3_4)
  result<-questionr::freq(temp.d$a3_4, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "4. Ethiopian")
4. Ethiopian
n % val%
Ethiopian 2 0.8 100
NA 239 99.2 NA
Total 241 100.0 100 
a3_5 <- as.factor(d[,"a3_5"])
  levels(a3_5) <- list(Haitian="1")
  new.d <- data.frame(new.d, a3_5)
  new.d <- apply_labels(new.d, a3_5 = "Haitian")
  temp.d <- data.frame (new.d, a3_5)
  result<-questionr::freq(temp.d$a3_5, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "5. Haitian")
5. Haitian
n % val%
Haitian 1 0.4 100
NA 240 99.6 NA
Total 241 100.0 100 
a3_6 <- as.factor(d[,"a3_6"])
  levels(a3_6) <- list(Somali="1")
  new.d <- data.frame(new.d, a3_6)
  new.d <- apply_labels(new.d, a3_6 = "Somali")
  temp.d <- data.frame (new.d, a3_6)
  result<-questionr::freq(temp.d$a3_6, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "6. Somali")
6. Somali
n % val%
Somali 1 0.4 100
NA 240 99.6 NA
Total 241 100.0 100 
a3_7 <- as.factor(d[,"a3_7"])
  levels(a3_7) <- list(Guyanese="1")
  new.d <- data.frame(new.d, a3_7)
  new.d <- apply_labels(new.d, a3_7 = "Guyanese")
  temp.d <- data.frame (new.d, a3_7)
  result<-questionr::freq(temp.d$a3_7, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "7. Guyanese")
7. Guyanese
n % val%
Guyanese 1 0.4 100
NA 240 99.6 NA
Total 241 100.0 100 
a3_8 <- as.factor(d[,"a3_8"])
  levels(a3_8) <- list(Creole="1")
  new.d <- data.frame(new.d, a3_8)
  new.d <- apply_labels(new.d, a3_8 = "Creole")
  temp.d <- data.frame (new.d, a3_8)
  result<-questionr::freq(temp.d$a3_8, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "8. Creole")
8. Creole
n % val%
Creole 2 0.8 100
NA 239 99.2 NA
Total 241 100.0 100 
a3_9 <- as.factor(d[,"a3_9"])
  levels(a3_9) <- list(West_Indian="1")
  new.d <- data.frame(new.d, a3_9)
  new.d <- apply_labels(new.d, a3_9 = "West_Indian")
  temp.d <- data.frame (new.d, a3_9)
  result<-questionr::freq(temp.d$a3_9, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "9. West_Indian")
9. West_Indian
n % val%
West_Indian 5 2.1 100
NA 236 97.9 NA
Total 241 100.0 100 
a3_10 <- as.factor(d[,"a3_10"])
  levels(a3_10) <- list(Caribbean="1")
  new.d <- data.frame(new.d, a3_10)
  new.d <- apply_labels(new.d, a3_10 = "Caribbean")
  temp.d <- data.frame (new.d, a3_10)
  result<-questionr::freq(temp.d$a3_10, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "10. Caribbean")
10. Caribbean
n % val%
Caribbean 2 0.8 100
NA 239 99.2 NA
Total 241 100.0 100 
a3_11 <- as.factor(d[,"a3_11"])
  levels(a3_11) <- list(White="1")
  new.d <- data.frame(new.d, a3_11)
  new.d <- apply_labels(new.d, a3_11 = "White")
  temp.d <- data.frame (new.d, a3_11)
  result<-questionr::freq(temp.d$a3_11, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "11. White")
11. White
n % val%
White 3 1.2 100
NA 238 98.8 NA
Total 241 100.0 100 
a3_12 <- as.factor(d[,"a3_12"])
  levels(a3_12) <- list(Asian="1")
  new.d <- data.frame(new.d, a3_12)
  new.d <- apply_labels(new.d, a3_12 = "Asian")
  temp.d <- data.frame (new.d, a3_12)
  result<-questionr::freq(temp.d$a3_12, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "12. Asian")
12. Asian
n % val%
Asian 0 0 NaN
NA 241 100 NA
Total 241 100 100 
a3_13 <- as.factor(d[,"a3_13"])
  levels(a3_13) <- list(Native_Indian="1")
  new.d <- data.frame(new.d, a3_13)
  new.d <- apply_labels(new.d, a3_13 = "Native_Indian")
  temp.d <- data.frame (new.d, a3_13)
  result<-questionr::freq(temp.d$a3_13, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "13. Native_Indian")
13. Native_Indian
n % val%
Native_Indian 4 1.7 100
NA 237 98.3 NA
Total 241 100.0 100 
a3_14 <- as.factor(d[,"a3_14"])
  levels(a3_14) <- list(Middle_Eastern_North_African="1")
  new.d <- data.frame(new.d, a3_14)
  new.d <- apply_labels(new.d, a3_14 = "Middle_Eastern_North_African")
  temp.d <- data.frame (new.d, a3_14)
  result<-questionr::freq(temp.d$a3_14, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "14. Middle_Eastern_North_African")
14. Middle_Eastern_North_African
n % val%
Middle_Eastern_North_African 0 0 NaN
NA 241 100 NA
Total 241 100 100 
a3_15 <- as.factor(d[,"a3_15"])
  levels(a3_15) <- list(Native_Hawaiian_Pacific_Islander="1")
  new.d <- data.frame(new.d, a3_15)
  new.d <- apply_labels(new.d, a3_15 = "Native_Hawaiian_Pacific_Islander")
  temp.d <- data.frame (new.d, a3_15)
  result<-questionr::freq(temp.d$a3_15, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "15. Native_Hawaiian_Pacific_Islander")
15. Native_Hawaiian_Pacific_Islander
n % val%
Native_Hawaiian_Pacific_Islander 0 0 NaN
NA 241 100 NA
Total 241 100 100 
a3_16 <- as.factor(d[,"a3_16"])
  levels(a3_16) <- list(Hispanic="1")
  new.d <- data.frame(new.d, a3_16)
  new.d <- apply_labels(new.d, a3_16 = "Hispanic")
  temp.d <- data.frame (new.d, a3_16)
  result<-questionr::freq(temp.d$a3_16, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "16. Hispanic")
16. Hispanic
n % val%
Hispanic 0 0 NaN
NA 241 100 NA
Total 241 100 100 
a3_17 <- as.factor(d[,"a3_17"])
  levels(a3_17) <- list(Latino="1")
  new.d <- data.frame(new.d, a3_17)
  new.d <- apply_labels(new.d, a3_17 = "Latino")
  temp.d <- data.frame (new.d, a3_17)
  result<-questionr::freq(temp.d$a3_17, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "17. Latino")
17. Latino
n % val%
Latino 1 0.4 100
NA 240 99.6 NA
Total 241 100.0 100 
a3_18 <- as.factor(d[,"a3_18"])
  levels(a3_18) <- list(Spanish="1")
  new.d <- data.frame(new.d, a3_18)
  new.d <- apply_labels(new.d, a3_18 = "Spanish")
  temp.d <- data.frame (new.d, a3_18)
  result<-questionr::freq(temp.d$a3_18, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "18. Spanish")
18. Spanish
n % val%
Spanish 1 0.4 100
NA 240 99.6 NA
Total 241 100.0 100 
a3_19 <- as.factor(d[,"a3_19"])
  levels(a3_19) <- list(Mexican="1")
  new.d <- data.frame(new.d, a3_19)
  new.d <- apply_labels(new.d, a3_19 = "Mexican")
  temp.d <- data.frame (new.d, a3_19)
  result<-questionr::freq(temp.d$a3_19, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "19. Mexican")
19. Mexican
n % val%
Mexican 0 0 NaN
NA 241 100 NA
Total 241 100 100 
a3_20 <- as.factor(d[,"a3_20"])
  levels(a3_20) <- list(Salvadoran="1")
  new.d <- data.frame(new.d, a3_20)
  new.d <- apply_labels(new.d, a3_20 = "Salvadoran")
  temp.d <- data.frame (new.d, a3_20)
  result<-questionr::freq(temp.d$a3_20, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "20. Salvadoran")
20. Salvadoran
n % val%
Salvadoran 0 0 NaN
NA 241 100 NA
Total 241 100 100 
a3_21 <- as.factor(d[,"a3_21"])
  levels(a3_21) <- list(Puerto_Rican="1")
  new.d <- data.frame(new.d, a3_21)
  new.d <- apply_labels(new.d, a3_21 = "Puerto_Rican")
  temp.d <- data.frame (new.d, a3_21)
  result<-questionr::freq(temp.d$a3_21, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "21. Puerto_Rican")
21. Puerto_Rican
n % val%
Puerto_Rican 1 0.4 100
NA 240 99.6 NA
Total 241 100.0 100 
a3_22 <- as.factor(d[,"a3_22"])
  levels(a3_22) <- list(Dominican="1")
  new.d <- data.frame(new.d, a3_22)
  new.d <- apply_labels(new.d, a3_22 = "Dominican")
  temp.d <- data.frame (new.d, a3_22)
  result<-questionr::freq(temp.d$a3_22, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "22. Dominican")
22. Dominican
n % val%
Dominican 0 0 NaN
NA 241 100 NA
Total 241 100 100 
a3_23 <- as.factor(d[,"a3_23"])
  levels(a3_23) <- list(Columbian="1")
  new.d <- data.frame(new.d, a3_23)
  new.d <- apply_labels(new.d, a3_23 = "Columbian")
  temp.d <- data.frame (new.d, a3_23)
  result<-questionr::freq(temp.d$a3_23, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "23. Columbian")
23. Columbian
n % val%
Columbian 0 0 NaN
NA 241 100 NA
Total 241 100 100 
a3_24 <- as.factor(d[,"a3_24"])
  levels(a3_23) <- list(Other="1")
  new.d <- data.frame(new.d, a3_24)
  new.d <- apply_labels(new.d, a3_24 = "Other")
  temp.d <- data.frame (new.d, a3_24)
  result<-questionr::freq(temp.d$a3_24, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "24. Other")
24. Other
n % val%
1 2 0.8 100
NA 239 99.2 NA
Total 241 100.0 100

A3 Other: Black or African American group

a3other <- d[,"a3other"]
  new.d <- data.frame(new.d, a3other)
  new.d <- apply_labels(new.d, a3other = "A3Other")
  temp.d <- data.frame (new.d, a3other)
result<-questionr::freq(temp.d$a3other, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A3Other")
A3Other
n % val%
Black Man 1 0.4 25
Cape Verdean 1 0.4 25
Hebrew Israelite. 1 0.4 25
Negro 1 0.4 25
NA 237 98.3 NA
Total 241 100.0 100

A4: Month and year of birth

A4. What is your month and year of birth?

# a4month
a4month <- as.factor(d[,"a4month"])
  new.d <- data.frame(new.d, a4month)
  new.d <- apply_labels(new.d, a4month = "Month of birth")
  temp.d <- data.frame (new.d, a4month) 
  
  result<-questionr::freq(temp.d$a4month, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A4: Month of birth")
A4: Month of birth
n % val%
1 20 8.3 8.3
10 25 10.4 10.4
11 14 5.8 5.8
12 13 5.4 5.4
18 1 0.4 0.4
2 17 7.1 7.1
3 14 5.8 5.8
4 23 9.5 9.6
5 14 5.8 5.8
6 22 9.1 9.2
7 23 9.5 9.6
71 1 0.4 0.4
8 27 11.2 11.2
9 26 10.8 10.8
NA 1 0.4 NA
Total 241 100.0 100.0 
#a4year
a4year <- as.factor(d[,"a4year"])
  new.d <- data.frame(new.d, a4year)
  new.d <- apply_labels(new.d, a4year = "Year of birth")
  temp.d <- data.frame (new.d, a4year) 

  result<-questionr::freq(temp.d$a4year, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A4: Year of birth")
A4: Year of birth
n % val%
1937 2 0.8 0.8
1939 3 1.2 1.2
1940 2 0.8 0.8
1941 4 1.7 1.7
1942 5 2.1 2.1
1943 7 2.9 2.9
1944 5 2.1 2.1
1945 7 2.9 2.9
1946 9 3.7 3.7
1947 10 4.1 4.1
1948 5 2.1 2.1
1949 13 5.4 5.4
1950 12 5.0 5.0
1951 8 3.3 3.3
1952 9 3.7 3.7
1953 6 2.5 2.5
1954 14 5.8 5.8
1955 15 6.2 6.2
1956 19 7.9 7.9
1957 17 7.1 7.1
1958 9 3.7 3.7
1959 6 2.5 2.5
1960 12 5.0 5.0
1961 9 3.7 3.7
1962 8 3.3 3.3
1963 7 2.9 2.9
1964 4 1.7 1.7
1965 2 0.8 0.8
1966 4 1.7 1.7
1967 2 0.8 0.8
1968 1 0.4 0.4
1970 2 0.8 0.8
1973 1 0.4 0.4
1977 1 0.4 0.4
663 1 0.4 0.4
Total 241 100.0 100.0

A5: Where were you born

  • A5. Where were you born?
    • 1=United States (includes Hawaii and US territories)
    • 2=Africa
    • 3=Cuba or Caribbean Islands
    • 4=Other
a5 <- as.factor(d[,"a5"])
# Make "*" to NA
a5[which(a5=="*")]<-"NA"
levels(a5) <- list(US="1",
                   Africa="2",
                   Cuba_Caribbean= "3",
                   Other="4")
  a5 <- ordered(a5, c("US","Africa","Cuba_Caribbean","Other"))
  
  new.d <- data.frame(new.d, a5)
  new.d <- apply_labels(new.d, a5 = "Born place")
  temp.d <- data.frame (new.d, a5) 
  
  result<-questionr::freq(temp.d$a5, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A5: Where were you born?")
A5: Where were you born?
n % val%
US 238 98.8 99.2
Africa 1 0.4 0.4
Cuba_Caribbean 1 0.4 0.4
Other 0 0.0 0.0
NA 1 0.4 NA
Total 241 100.0 100.0

A5 Other: Where were you born

a5other <- d[,"a5other"]
  new.d <- data.frame(new.d, a5other)
  new.d <- apply_labels(new.d, a5other = "a5other")
  temp.d <- data.frame (new.d, a5other)
result<-questionr::freq(temp.d$a5other, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A5Other")
A5Other
n % val%
NA 241 100 NA
Total 241 100 100

A6: Biological father born

  • A6. Where was your biological father born?
    • 1=United States (includes Hawaii and US territories)
    • 2=Africa
    • 3=Cuba or Caribbean Islands
    • 4=Other
a6 <- as.factor(d[,"a6"])
# Make "*" to NA
a6[which(a6=="*")]<-"NA"
levels(a6) <- list(US="1",
                   Africa="2",
                   Cuba_Caribbean= "3",
                   Other="4")
  a6 <- ordered(a6, c("US","Africa","Cuba_Caribbean","Other"))
  
  new.d <- data.frame(new.d, a6)
  new.d <- apply_labels(new.d, a6 = "Born place")
  temp.d <- data.frame (new.d, a6) 
  
  result<-questionr::freq(temp.d$a6, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "a6: Where were you born?")
a6: Where were you born?
n % val%
US 233 96.7 98.3
Africa 1 0.4 0.4
Cuba_Caribbean 2 0.8 0.8
Other 1 0.4 0.4
NA 4 1.7 NA
Total 241 100.0 100.0

A6 Other: Biological father born

a6other <- d[,"a6other"]
  new.d <- data.frame(new.d, a6other)
  new.d <- apply_labels(new.d, a6other = "a6other")
  temp.d <- data.frame (new.d, a6other)
result<-questionr::freq(temp.d$a6other, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A6Other")
A6Other
n % val%
Canada. 1 0.4 50
Unknown 1 0.4 50
NA 239 99.2 NA
Total 241 100.0 100

A7: Biological mother born

  • A7. Where was your biological mother born?
    • 1=United States (includes Hawaii and US territories)
    • 2=Africa
    • 3=Cuba or Caribbean Islands
    • 4=Other
a7 <- as.factor(d[,"a7"])
# Make "*" to NA
a7[which(a7=="*")]<-"NA"
levels(a7) <- list(US="1",
                   Africa="2",
                   Cuba_Caribbean= "3",
                   Other="4")
  a7 <- ordered(a7, c("US","Africa","Cuba_Caribbean","Other"))
  
  new.d <- data.frame(new.d, a7)
  new.d <- apply_labels(new.d, a7 = "Born place")
  temp.d <- data.frame (new.d, a7) 
  
  result<-questionr::freq(temp.d$a7, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "a7: Where were you born?")
a7: Where were you born?
n % val%
US 235 97.5 98.3
Africa 1 0.4 0.4
Cuba_Caribbean 2 0.8 0.8
Other 1 0.4 0.4
NA 2 0.8 NA
Total 241 100.0 100.0

A7 Other: Biological father born

a7other <- d[,"a7other"]
  new.d <- data.frame(new.d, a7other)
  new.d <- apply_labels(new.d, a7other = "a7other")
  temp.d <- data.frame (new.d, a7other)
result<-questionr::freq(temp.d$a7other, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A7Other")
A7Other
n % val%
Canada. 1 0.4 100
NA 240 99.6 NA
Total 241 100.0 100

A8: Years lived in the US

  • A8. How many years have you lived in the United States?
    • 1=15 years or less
    • 2=16-25 years
    • 3=My whole life or more than 25 years
a8 <- as.factor(d[,"a8"])
# Make "*" to NA
a8[which(a8=="*")]<-"NA"
levels(a8) <- list(less_or_15="1",
                   years_16_25="2",
                   more_than_25_or_whole_life= "3")
  a8 <- ordered(a8, c("less_or_15","years_16_25","more_than_25_or_whole_life"))
  
  new.d <- data.frame(new.d, a8)
  new.d <- apply_labels(new.d, a8 = "Years lived in the US")
  temp.d <- data.frame (new.d, a8) 
  
  result<-questionr::freq(temp.d$a8, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "A8")
A8
n % val%
less_or_15 0 0.0 0.0
years_16_25 1 0.4 0.4
more_than_25_or_whole_life 228 94.6 99.6
NA 12 5.0 NA
Total 241 100.0 100.0

B1A: Father

  • B1Aa: Father: Has this person had prostate cancer?
  • B1Ab: Father: Was he (or any) diagnosed BEFORE age 55?
  • B1Ac: Father: Did he (or any) die of prostate cancer?
    • 1=No
    • 2=Yes
    • 88=Don’t know
# B1Aa: Father: Has this person had prostate cancer?
  b1aa <- as.factor(d[,"b1aa"])
# Make "*" to NA
b1aa[which(b1aa=="*")]<-"NA"
  levels(b1aa) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1aa <- ordered(b1aa, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1aa)
  new.d <- apply_labels(new.d, b1aa = "Father")
  temp.d <- data.frame (new.d, b1aa)  
  
  result<-questionr::freq(temp.d$b1aa,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Aa: Father: Has this person had prostate cancer?")
B1Aa: Father: Has this person had prostate cancer?
n % val%
No 135 56.0 58.4
Yes 41 17.0 17.7
Dont_know 55 22.8 23.8
NA 10 4.1 NA
Total 241 100.0 100.0 
#B1Ab: Father: Was he (or any) diagnosed BEFORE age 55? 
  b1ab <- as.factor(d[,"b1ab"])
# Make "*" to NA
b1ab[which(b1ab=="*")]<-"NA"
  levels(b1ab) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1ab <- ordered(b1ab, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1ab)
  new.d <- apply_labels(new.d, b1ab = "Father")
  temp.d <- data.frame (new.d, b1ab)  
  
  result<-questionr::freq(temp.d$b1ab,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Ab: Father: Was he (or any) diagnosed BEFORE age 55?")
B1Ab: Father: Was he (or any) diagnosed BEFORE age 55?
n % val%
No 51 21.2 59.3
Yes 5 2.1 5.8
Dont_know 30 12.4 34.9
NA 155 64.3 NA
Total 241 100.0 100.0 
#B1Ac: Father: Did he (or any) die of prostate cancer?
  b1ac <- as.factor(d[,"b1ac"])
  # Make "*" to NA
b1ac[which(b1ac=="*")]<-"NA"
  levels(b1ac) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1ac <- ordered(b1ac, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1ac)
  new.d <- apply_labels(new.d, b1ac = "Father")
  temp.d <- data.frame (new.d, b1ac)  
  
  result<-questionr::freq(temp.d$b1ac,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Ac: Father: Did he (or any) die of prostate cancer?")
B1Ac: Father: Did he (or any) die of prostate cancer?
n % val%
No 60 24.9 68.2
Yes 16 6.6 18.2
Dont_know 12 5.0 13.6
NA 153 63.5 NA
Total 241 100.0 100.0

B1B: Any Brother

  • B1BNo: Any Brother
    • 1=I had no brothers
    • if not marked
  • B1Ba: Any Brother: Has this person had prostate cancer?
    • 1=No
    • 2=Yes
    • 88=Don’t know
  • B1Ba2: Any Brother: If Yes, number with prostate cancer
    • 1=1
    • 2=2+
  • B1Bb: Any Brother: Was he (or any) diagnosed BEFORE age 55?
    • 1=No
    • 2=Yes
    • 88=Don’t know
  • B1Bc: Any Brother: Did he (or any) die of prostate cancer?
    • 1=No
    • 2=Yes
    • 88=Don’t know
# B1BNo: Any Brother
  b1bno <- as.factor(d[,"b1bno"])
  levels(b1bno) <- list(No_brothers="1")

  new.d <- data.frame(new.d, b1bno)
  new.d <- apply_labels(new.d, b1bno = "Any Brother")
  temp.d <- data.frame (new.d, b1bno)  
  
  result<-questionr::freq(temp.d$b1bno,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1BNo: Any Brother")
B1BNo: Any Brother
n % val%
No_brothers 29 12 100
NA 212 88 NA
Total 241 100 100 
#B1Ba: Any Brother: Has this person had prostate cancer? 
  b1ba <- as.factor(d[,"b1ba"])
# Make "*" to NA
b1ba[which(b1ba=="*")]<-"NA"
  levels(b1ba) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1ba <- ordered(b1ba, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1ba)
  new.d <- apply_labels(new.d, b1ba = "Any Brother: have p cancer")
  temp.d <- data.frame (new.d, b1ba)  
  
  result<-questionr::freq(temp.d$b1ba,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Ba: Any Brother: Has this person had prostate cancer?")
B1Ba: Any Brother: Has this person had prostate cancer?
n % val%
No 144 59.8 69.2
Yes 39 16.2 18.8
Dont_know 25 10.4 12.0
NA 33 13.7 NA
Total 241 100.0 100.0 
#B1Ba2: Any Brother: If Yes, number with prostate cancer
  b1ba2 <- as.factor(d[,"b1ba2"])
# Make "*" to NA
b1ba2[which(b1ba2=="*")]<-"NA"
  levels(b1ba2) <- list(One="1",
                     Two_or_more="2")
  b1ba2 <- ordered(b1ba2, c("One","Two_or_more"))
  
  new.d <- data.frame(new.d, b1ba2)
  new.d <- apply_labels(new.d, b1ba2 = "Number of brother")
  temp.d <- data.frame (new.d, b1ba2)  
  
  result<-questionr::freq(temp.d$b1ba2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Ba2: Any Brother: If Yes, number with prostate cancer")
B1Ba2: Any Brother: If Yes, number with prostate cancer
n % val%
One 16 6.6 64
Two_or_more 9 3.7 36
NA 216 89.6 NA
Total 241 100.0 100 
#B1Bb: Any Brother: Was he (or any) diagnosed BEFORE age 55?
  b1bb <- as.factor(d[,"b1bb"])
# Make "*" to NA
b1bb[which(b1bb=="*")]<-"NA"
  levels(b1bb) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1bb <- ordered(b1bb, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1bb)
  new.d <- apply_labels(new.d, b1bb = "Any Brother: before 55")
  temp.d <- data.frame (new.d, b1bb)  
  
  result<-questionr::freq(temp.d$b1bb,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Bb: Any Brother: Was he (or any) diagnosed BEFORE age 55?")
B1Bb: Any Brother: Was he (or any) diagnosed BEFORE age 55?
n % val%
No 44 18.3 59.5
Yes 8 3.3 10.8
Dont_know 22 9.1 29.7
NA 167 69.3 NA
Total 241 100.0 100.0 
#B1Bc: Any Brother: Did he (or any) die of prostate cancer?
  b1bc <- as.factor(d[,"b1bc"])
  # Make "*" to NA
b1bc[which(b1bc=="*")]<-"NA"
  levels(b1bc) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1bc <- ordered(b1bc, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1bc)
  new.d <- apply_labels(new.d, b1bc = "Any Brother: die")
  temp.d <- data.frame (new.d, b1bc)  
  
  result<-questionr::freq(temp.d$b1bc,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Bc: Any Brother: Did he (or any) die of prostate cancer?")
B1Bc: Any Brother: Did he (or any) die of prostate cancer?
n % val%
No 58 24.1 82.9
Yes 4 1.7 5.7
Dont_know 8 3.3 11.4
NA 171 71.0 NA
Total 241 100.0 100.0

B1C: Any Son

  • B1CNo: Any Son
    • 1=I had no sons
    • if not marked
  • B1Ca: Any Son: Has this person had prostate cancer?
    • 1=No
    • 2=Yes
    • 88=Don’t know
  • B1Ca2: Any Son: If Yes, number with prostate cancer
    • 1=1
    • 2=2+
  • B1Cb: Any Son: Was he (or any) diagnosed BEFORE age 55?
    • 1=No
    • 2=Yes
    • 88=Don’t know
  • B1Cc: Any Son: Did he (or any) die of prostate cancer?
    • 1=No
    • 2=Yes
    • 88=Don’t know
# B1BNo
  b1cno <- as.factor(d[,"b1cno"])
  levels(b1cno) <- list(No_brothers="1")

  new.d <- data.frame(new.d, b1cno)
  new.d <- apply_labels(new.d, b1cno = "Any Son")
  temp.d <- data.frame (new.d, b1cno)  
  
  result<-questionr::freq(temp.d$b1cno,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1CNo: Any Son")
B1CNo: Any Son
n % val%
No_brothers 53 22 100
NA 188 78 NA
Total 241 100 100 
#B1Ca
  b1ca <- as.factor(d[,"b1ca"])
  # Make "*" to NA
b1ca[which(b1ca=="*")]<-"NA"
  levels(b1ca) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1ca <- ordered(b1ca, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1ca)
  new.d <- apply_labels(new.d, b1ca = "Any Son: have p cancer")
  temp.d <- data.frame (new.d, b1ca)  
  
  result<-questionr::freq(temp.d$b1ca,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Ca: Any Son: Has this person had prostate cancer?")
B1Ca: Any Son: Has this person had prostate cancer?
n % val%
No 163 67.6 92.6
Yes 6 2.5 3.4
Dont_know 7 2.9 4.0
NA 65 27.0 NA
Total 241 100.0 100.0 
#B1Ca2
  b1ca2 <- as.factor(d[,"b1ca2"])
  # Make "*" to NA
b1ca2[which(b1ca2=="*")]<-"NA"
  levels(b1ca2) <- list(One="1",
                     Two_or_more="2")
  b1ca2 <- ordered(b1ca2, c("One","Two_or_more"))
  
  new.d <- data.frame(new.d, b1ca2)
  new.d <- apply_labels(new.d, b1ca2 = "Number of sons")
  temp.d <- data.frame (new.d, b1ca2)  
  
  result<-questionr::freq(temp.d$b1ca2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Ca2: Any Son: If Yes, number with prostate cancer")
B1Ca2: Any Son: If Yes, number with prostate cancer
n % val%
One 4 1.7 80
Two_or_more 1 0.4 20
NA 236 97.9 NA
Total 241 100.0 100 
#B1Cb
  b1cb <- as.factor(d[,"b1cb"])
  # Make "*" to NA
b1cb[which(b1cb=="*")]<-"NA"
  levels(b1cb) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1cb <- ordered(b1cb, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1cb)
  new.d <- apply_labels(new.d, b1cb = "Any Son: before 55")
  temp.d <- data.frame (new.d, b1cb)  
  
  result<-questionr::freq(temp.d$b1cb,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Cb: Any Son: Was he (or any) diagnosed BEFORE age 55?")
B1Cb: Any Son: Was he (or any) diagnosed BEFORE age 55?
n % val%
No 36 14.9 85.7
Yes 2 0.8 4.8
Dont_know 4 1.7 9.5
NA 199 82.6 NA
Total 241 100.0 100.0 
#B1Cc
  b1cc <- as.factor(d[,"b1cc"])
  # Make "*" to NA
b1cc[which(b1cc=="*")]<-"NA"
  levels(b1cc) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1cc <- ordered(b1cc, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1cc)
  new.d <- apply_labels(new.d, b1cc = "Any Son: die")
  temp.d <- data.frame (new.d, b1cc)  
  
  result<-questionr::freq(temp.d$b1cc,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Cc: Any Son: Did he (or any) die of prostate cancer?")
B1Cc: Any Son: Did he (or any) die of prostate cancer?
n % val%
No 38 15.8 90.5
Yes 0 0.0 0.0
Dont_know 4 1.7 9.5
NA 199 82.6 NA
Total 241 100.0 100.0

B1D: Maternal Grandfather

  • B1Da: Maternal Grandfather (Mom’s side): Has this person had prostate cancer?
  • B1Db: Maternal Grandfather (Mom’s side): Was he (or any) diagnosed BEFORE age 55?
  • b1Dc: Maternal Grandfather (Mom’s side): Did he (or any) die of prostate cancer?
    • 1=No
    • 2=Yes
    • 88=Don’t know
# B1Da: Maternal Grandfather (Mom’s side): Has this person had prostate cancer?
  b1da <- as.factor(d[,"b1da"])
# Make "*" to NA
b1da[which(b1da=="*")]<-"NA"
  levels(b1da) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1da <- ordered(b1da, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1da)
  new.d <- apply_labels(new.d, b1da = "Father")
  temp.d <- data.frame (new.d, b1da)  
  
  result<-questionr::freq(temp.d$b1da,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Da: Maternal Grandfather (Mom’s side): Has this person had prostate cancer?")
B1Da: Maternal Grandfather (Mom’s side): Has this person had prostate cancer?
n % val%
No 87 36.1 39.4
Yes 13 5.4 5.9
Dont_know 121 50.2 54.8
NA 20 8.3 NA
Total 241 100.0 100.0 
# B1Db: Maternal Grandfather (Mom’s side): Was he (or any) diagnosed BEFORE age 55?
  b1db <- as.factor(d[,"b1db"])
  # Make "*" to NA
b1db[which(b1db=="*")]<-"NA"
  levels(b1db) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1db <- ordered(b1db, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1db)
  new.d <- apply_labels(new.d, b1db = "Father")
  temp.d <- data.frame (new.d, b1db)  
  
  result<-questionr::freq(temp.d$b1db,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Db: Maternal Grandfather (Mom’s side): Was he (or any) diagnosed BEFORE age 55?")
B1Db: Maternal Grandfather (Mom’s side): Was he (or any) diagnosed BEFORE age 55?
n % val%
No 26 10.8 46.4
Yes 0 0.0 0.0
Dont_know 30 12.4 53.6
NA 185 76.8 NA
Total 241 100.0 100.0 
# B1Dc: Maternal Grandfather (Mom’s  side): Did he (or any) die of prostate cancer?
  b1dc <- as.factor(d[,"b1dc"])
  # Make "*" to NA
b1dc[which(b1dc=="*")]<-"NA"
  levels(b1dc) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1dc <- ordered(b1dc, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1dc)
  new.d <- apply_labels(new.d, b1dc = "Father")
  temp.d <- data.frame (new.d, b1dc)  
  
  result<-questionr::freq(temp.d$b1dc,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Dc: Maternal Grandfather (Mom’s  side): Did he (or any) die of prostate cancer?")
B1Dc: Maternal Grandfather (Mom’s side): Did he (or any) die of prostate cancer?
n % val%
No 25 10.4 45.5
Yes 4 1.7 7.3
Dont_know 26 10.8 47.3
NA 186 77.2 NA
Total 241 100.0 100.0

B1E: Paternal Grandfather

  • B1Ea: Paternal Grandfather (Dad’s side): Has this person had prostate cancer?
  • B1Eb: Paternal Grandfather (Dad’s side): Was he (or any) diagnosed BEFORE age 55?
  • B1Ec: Paternal Grandfather (Dad’s side): Did he (or any) die of prostate cancer?
    • 1=No
    • 2=Yes
    • 88=Don’t know
# B1Ea: Paternal Grandfather (Dad’s side): Has this person had prostate cancer? 
  b1ea <- as.factor(d[,"b1ea"])
# Make "*" to NA
b1ea[which(b1ea=="*")]<-"NA"
  levels(b1ea) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1ea <- ordered(b1ea, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1ea)
  new.d <- apply_labels(new.d, b1ea = "Father")
  temp.d <- data.frame (new.d, b1ea)  
  
  result<-questionr::freq(temp.d$b1ea,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Ea: Paternal Grandfather (Dad’s side): Has this person had prostate cancer?")
B1Ea: Paternal Grandfather (Dad’s side): Has this person had prostate cancer?
n % val%
No 88 36.5 40.4
Yes 6 2.5 2.8
Dont_know 124 51.5 56.9
NA 23 9.5 NA
Total 241 100.0 100.0 
# B1Eb: Paternal Grandfather (Dad’s side): Was he (or any) diagnosed BEFORE age 55?
  b1eb <- as.factor(d[,"b1eb"])
  # Make "*" to NA
b1eb[which(b1eb=="*")]<-"NA"
  levels(b1eb) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1eb <- ordered(b1eb, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1eb)
  new.d <- apply_labels(new.d, b1eb = "Father")
  temp.d <- data.frame (new.d, b1eb)  
  
  result<-questionr::freq(temp.d$b1eb,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Eb: Paternal Grandfather (Dad’s side): Was he (or any) diagnosed BEFORE age 55?")
B1Eb: Paternal Grandfather (Dad’s side): Was he (or any) diagnosed BEFORE age 55?
n % val%
No 23 9.5 48.9
Yes 0 0.0 0.0
Dont_know 24 10.0 51.1
NA 194 80.5 NA
Total 241 100.0 100.0 
# B1Ec: Paternal Grandfather (Dad’s side): Did he (or any) die of prostate cancer?
  b1ec <- as.factor(d[,"b1ec"])
  # Make "*" to NA
b1ec[which(b1ec=="*")]<-"NA"
  levels(b1ec) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  b1ec <- ordered(b1ec, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, b1ec)
  new.d <- apply_labels(new.d, b1ec = "Father")
  temp.d <- data.frame (new.d, b1ec)  
  
  result<-questionr::freq(temp.d$b1ec,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B1Ec: Paternal Grandfather (Dad’s side): Did he (or any) die of prostate cancer?")
B1Ec: Paternal Grandfather (Dad’s side): Did he (or any) die of prostate cancer?
n % val%
No 21 8.7 43.8
Yes 3 1.2 6.2
Dont_know 24 10.0 50.0
NA 193 80.1 NA
Total 241 100.0 100.0

B2: Family History (Other cancers)

  • B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)?
    • 2=Yes
    • 1=No
b2 <- as.factor(d[,"b2"])
# Make "*" to NA
b2[which(b2=="*")]<-"NA"
levels(b2) <- list(No="1",
                   Yes="2")
  b2 <- ordered(b2, c("Yes","No"))
  
  new.d <- data.frame(new.d, b2)
  new.d <- apply_labels(new.d, b2 = "Month Diagnosed")
  temp.d <- data.frame (new.d, b2) 
  
  result<-questionr::freq(temp.d$b2, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B2")
B2
n % val%
Yes 47 19.5 37.6
No 78 32.4 62.4
NA 116 48.1 NA
Total 241 100.0 100.0

B2A: Mother

  • B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
    • B2A_1: 1=Breast
    • B2A_2: 1=Ovarian
    • B2A_3: 1=Colorectal
    • B2A_4: 1=Lung
    • B2A_5: 1=Other Cancer
  b2a_1 <- as.factor(d[,"b2a_1"])
  levels(b2a_1) <- list(Breast="1")
  new.d <- data.frame(new.d, b2a_1)
  new.d <- apply_labels(new.d, b2a_1 = "Breast")
  temp.d <- data.frame (new.d, b2a_1)  
  result<-questionr::freq(temp.d$b2a_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
n % val%
Breast 24 10 100
NA 217 90 NA
Total 241 100 100 
  b2a_2 <- as.factor(d[,"b2a_2"])
  levels(b2a_2) <- list(Ovarian="1")
  new.d <- data.frame(new.d, b2a_2)
  new.d <- apply_labels(new.d, b2a_2 = "Ovarian")
  temp.d <- data.frame (new.d, b2a_2)  
  result<-questionr::freq(temp.d$b2a_2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Ovarian")
2. Ovarian
n % val%
Ovarian 12 5 100
NA 229 95 NA
Total 241 100 100 
  b2a_3 <- as.factor(d[,"b2a_3"])
  levels(b2a_3) <- list(Colorectal="1")
  new.d <- data.frame(new.d, b2a_3)
  new.d <- apply_labels(new.d, b2a_3 = "Colorectal")
  temp.d <- data.frame (new.d, b2a_3)  
  
  result<-questionr::freq(temp.d$b2a_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
n % val%
Colorectal 5 2.1 100
NA 236 97.9 NA
Total 241 100.0 100 
  b2a_4 <- as.factor(d[,"b2a_4"])
  levels(b2a_4) <- list(Lung="1")
  new.d <- data.frame(new.d, b2a_4)
  new.d <- apply_labels(new.d, b2a_4 = "Lung")
  temp.d <- data.frame (new.d, b2a_4)  
  
  result<-questionr::freq(temp.d$b2a_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
n % val%
Lung 7 2.9 100
NA 234 97.1 NA
Total 241 100.0 100 
  b2a_5 <- as.factor(d[,"b2a_5"])
  levels(b2a_5) <- list(Other_Cancer="1")
  new.d <- data.frame(new.d, b2a_5)
  new.d <- apply_labels(new.d, b2a_5 = "Lung")
  temp.d <- data.frame (new.d, b2a_5)  
  
  result<-questionr::freq(temp.d$b2a_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
n % val%
Other_Cancer 29 12 100
NA 212 88 NA
Total 241 100 100

B2B: Father

  • B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
    • B2B_1: 1=Breast
    • B2B_3: 1=Colorectal
    • B2B_4: 1=Lung
    • B2B_5: 1=Other Cancer
  b2b_1 <- as.factor(d[,"b2b_1"])
  levels(b2b_1) <- list(Breast="1")
  new.d <- data.frame(new.d, b2b_1)
  new.d <- apply_labels(new.d, b2b_1 = "Breast")
  temp.d <- data.frame (new.d, b2b_1)  
  result<-questionr::freq(temp.d$b2b_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
n % val%
Breast 2 0.8 100
NA 239 99.2 NA
Total 241 100.0 100 
  b2b_3 <- as.factor(d[,"b2b_3"])
  levels(b2b_3) <- list(Colorectal="1")
  new.d <- data.frame(new.d, b2b_3)
  new.d <- apply_labels(new.d, b2b_3 = "Colorectal")
  temp.d <- data.frame (new.d, b2b_3)  
  
  result<-questionr::freq(temp.d$b2b_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
n % val%
Colorectal 4 1.7 100
NA 237 98.3 NA
Total 241 100.0 100 
  b2b_4 <- as.factor(d[,"b2b_4"])
  levels(b2b_4) <- list(Lung="1")
  new.d <- data.frame(new.d, b2b_4)
  new.d <- apply_labels(new.d, b2b_4 = "Lung")
  temp.d <- data.frame (new.d, b2b_4)  
  
  result<-questionr::freq(temp.d$b2b_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
n % val%
Lung 9 3.7 100
NA 232 96.3 NA
Total 241 100.0 100 
  b2b_5 <- as.factor(d[,"b2b_5"])
  levels(b2b_5) <- list(Other_Cancer="1")
  new.d <- data.frame(new.d, b2b_5)
  new.d <- apply_labels(new.d, b2b_5 = "Lung")
  temp.d <- data.frame (new.d, b2b_5)  
  
  result<-questionr::freq(temp.d$b2b_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
n % val%
Other_Cancer 18 7.5 100
NA 223 92.5 NA
Total 241 100.0 100

B2C: Any sister

  • B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
    • B2C_1: 1=Breast
    • B2C_2: 1=Ovarian
    • B2C_3: 1=Colorectal
    • B2C_4: 1=Lung
    • B2C_5: 1=Other Cancer
  b2c_1 <- as.factor(d[,"b2c_1"])
  levels(b2c_1) <- list(Breast="1")
  new.d <- data.frame(new.d, b2c_1)
  new.d <- apply_labels(new.d, b2c_1 = "Breast")
  temp.d <- data.frame (new.d, b2c_1)  
  result<-questionr::freq(temp.d$b2c_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
n % val%
Breast 18 7.5 100
NA 223 92.5 NA
Total 241 100.0 100 
  b2c_2 <- as.factor(d[,"b2c_2"])
  levels(b2c_2) <- list(Ovarian="1")
  new.d <- data.frame(new.d, b2c_2)
  new.d <- apply_labels(new.d, b2c_2 = "Ovarian")
  temp.d <- data.frame (new.d, b2c_2)  
  result<-questionr::freq(temp.d$b2c_2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Ovarian")
2. Ovarian
n % val%
Ovarian 9 3.7 100
NA 232 96.3 NA
Total 241 100.0 100 
  b2c_3 <- as.factor(d[,"b2c_3"])
  levels(b2c_3) <- list(Colorectal="1")
  new.d <- data.frame(new.d, b2c_3)
  new.d <- apply_labels(new.d, b2c_3 = "Colorectal")
  temp.d <- data.frame (new.d, b2c_3)  
  
  result<-questionr::freq(temp.d$b2c_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
n % val%
Colorectal 3 1.2 100
NA 238 98.8 NA
Total 241 100.0 100 
  b2c_4 <- as.factor(d[,"b2c_4"])
  levels(b2c_4) <- list(Lung="1")
  new.d <- data.frame(new.d, b2c_4)
  new.d <- apply_labels(new.d, b2c_4 = "Lung")
  temp.d <- data.frame (new.d, b2c_4)  
  
  result<-questionr::freq(temp.d$b2c_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
n % val%
Lung 2 0.8 100
NA 239 99.2 NA
Total 241 100.0 100 
  b2c_5 <- as.factor(d[,"b2c_5"])
  levels(b2c_5) <- list(Other_Cancer="1")
  new.d <- data.frame(new.d, b2c_5)
  new.d <- apply_labels(new.d, b2c_5 = "Lung")
  temp.d <- data.frame (new.d, b2c_5)  
  
  result<-questionr::freq(temp.d$b2c_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
n % val%
Other_Cancer 16 6.6 100
NA 225 93.4 NA
Total 241 100.0 100

B2D: Any brother

  • B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
    • B2D_1: 1=Breast
    • B2D_3: 1=Colorectal
    • B2D_4: 1=Lung
    • B2D_5: 1=Other Cancer
  b2d_1 <- as.factor(d[,"b2d_1"])
  levels(b2d_1) <- list(Breast="1")
  new.d <- data.frame(new.d, b2d_1)
  new.d <- apply_labels(new.d, b2d_1 = "Breast")
  temp.d <- data.frame (new.d, b2d_1)  
  result<-questionr::freq(temp.d$b2d_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
n % val%
Breast 0 0 NaN
NA 241 100 NA
Total 241 100 100 
  b2d_3 <- as.factor(d[,"b2d_3"])
  levels(b2d_3) <- list(Colorectal="1")
  new.d <- data.frame(new.d, b2d_3)
  new.d <- apply_labels(new.d, b2d_3 = "Colorectal")
  temp.d <- data.frame (new.d, b2d_3)  
  
  result<-questionr::freq(temp.d$b2d_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
n % val%
Colorectal 4 1.7 100
NA 237 98.3 NA
Total 241 100.0 100 
  b2d_4 <- as.factor(d[,"b2d_4"])
  levels(b2d_4) <- list(Lung="1")
  new.d <- data.frame(new.d, b2d_4)
  new.d <- apply_labels(new.d, b2d_4 = "Lung")
  temp.d <- data.frame (new.d, b2d_4)  
  
  result<-questionr::freq(temp.d$b2d_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
n % val%
Lung 6 2.5 100
NA 235 97.5 NA
Total 241 100.0 100 
  b2d_5 <- as.factor(d[,"b2d_5"])
  levels(b2d_5) <- list(Other_Cancer="1")
  new.d <- data.frame(new.d, b2d_5)
  new.d <- apply_labels(new.d, b2d_5 = "Lung")
  temp.d <- data.frame (new.d, b2d_5)  
  
  result<-questionr::freq(temp.d$b2d_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
n % val%
Other_Cancer 20 8.3 100
NA 221 91.7 NA
Total 241 100.0 100

B2E: Any daughter

  • B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
    • B2E_1: 1=Breast
    • B2E_2: 1=Ovarian
    • B2E_3: 1=Colorectal
    • B2E_4: 1=Lung
    • B2E_5: 1=Other Cancer
  b2e_1 <- as.factor(d[,"b2e_1"])
  levels(b2e_1) <- list(Breast="1")
  new.d <- data.frame(new.d, b2e_1)
  new.d <- apply_labels(new.d, b2e_1 = "Breast")
  temp.d <- data.frame (new.d, b2e_1)  
  result<-questionr::freq(temp.d$b2e_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
n % val%
Breast 2 0.8 100
NA 239 99.2 NA
Total 241 100.0 100 
  b2e_2 <- as.factor(d[,"b2e_2"])
  levels(b2e_2) <- list(Ovarian="1")
  new.d <- data.frame(new.d, b2e_2)
  new.d <- apply_labels(new.d, b2e_2 = "Ovarian")
  temp.d <- data.frame (new.d, b2e_2)  
  result<-questionr::freq(temp.d$b2e_2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Ovarian")
2. Ovarian
n % val%
Ovarian 6 2.5 100
NA 235 97.5 NA
Total 241 100.0 100 
  b2e_3 <- as.factor(d[,"b2e_3"])
  levels(b2e_3) <- list(Colorectal="1")
  new.d <- data.frame(new.d, b2e_3)
  new.d <- apply_labels(new.d, b2e_3 = "Colorectal")
  temp.d <- data.frame (new.d, b2e_3)  
  
  result<-questionr::freq(temp.d$b2e_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
n % val%
Colorectal 0 0 NaN
NA 241 100 NA
Total 241 100 100 
  b2e_4 <- as.factor(d[,"b2e_4"])
  levels(b2e_4) <- list(Lung="1")
  new.d <- data.frame(new.d, b2e_4)
  new.d <- apply_labels(new.d, b2e_4 = "Lung")
  temp.d <- data.frame (new.d, b2e_4)  
  
  result<-questionr::freq(temp.d$b2e_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
n % val%
Lung 0 0 NaN
NA 241 100 NA
Total 241 100 100 
  b2e_5 <- as.factor(d[,"b2e_5"])
  levels(b2e_5) <- list(Other_Cancer="1")
  new.d <- data.frame(new.d, b2e_5)
  new.d <- apply_labels(new.d, b2e_5 = "Lung")
  temp.d <- data.frame (new.d, b2e_5)  
  
  result<-questionr::freq(temp.d$b2e_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
n % val%
Other_Cancer 2 0.8 100
NA 239 99.2 NA
Total 241 100.0 100

B2F: Any son

  • B2. Other than prostate cancer, has any family member been diagnosed with one or more of these other cancers (only include biological or blood relatives)? If Yes, please indicate which family members had a cancer in the table below. Mark all that apply.
    • B2F_1: 1=Breast
    • B2F_3: 1=Colorectal
    • B2F_4: 1=Lung
    • B2F_5: 1=Other Cancer
  b2f_1 <- as.factor(d[,"b2f_1"])
  levels(b2f_1) <- list(Breast="1")
  new.d <- data.frame(new.d, b2f_1)
  new.d <- apply_labels(new.d, b2f_1 = "Breast")
  temp.d <- data.frame (new.d, b2f_1)  
  result<-questionr::freq(temp.d$b2f_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Breast")
1. Breast
n % val%
Breast 0 0 NaN
NA 241 100 NA
Total 241 100 100 
  b2f_3 <- as.factor(d[,"b2f_3"])
  levels(b2f_3) <- list(Colorectal="1")
  new.d <- data.frame(new.d, b2f_3)
  new.d <- apply_labels(new.d, b2f_3 = "Colorectal")
  temp.d <- data.frame (new.d, b2f_3)  
  
  result<-questionr::freq(temp.d$b2f_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Colorectal")
3. Colorectal
n % val%
Colorectal 0 0 NaN
NA 241 100 NA
Total 241 100 100 
  b2f_4 <- as.factor(d[,"b2f_4"])
  levels(b2f_4) <- list(Lung="1")
  new.d <- data.frame(new.d, b2f_4)
  new.d <- apply_labels(new.d, b2f_4 = "Lung")
  temp.d <- data.frame (new.d, b2f_4)  
  
  result<-questionr::freq(temp.d$b2f_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "4. Lung")
4. Lung
n % val%
Lung 0 0 NaN
NA 241 100 NA
Total 241 100 100 
  b2f_5 <- as.factor(d[,"b2f_5"])
  levels(b2f_5) <- list(Other_Cancer="1")
  new.d <- data.frame(new.d, b2f_5)
  new.d <- apply_labels(new.d, b2f_5 = "Lung")
  temp.d <- data.frame (new.d, b2f_5)  
  
  result<-questionr::freq(temp.d$b2f_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "5. Other Cancer")
5. Other Cancer
n % val%
Other_Cancer 1 0.4 100
NA 240 99.6 NA
Total 241 100.0 100

B3: Current health

  • B3. In general, how would you rate your current health?
    • 1=Excellent
    • 2=Very Good
    • 3=Good
    • 4=Fair
    • 5=Poor
  b3 <- as.factor(d[,"b3"])
# Make "*" to NA
b3[which(b3=="*")]<-"NA"
  levels(b3) <- list(Excellent="1",
                     Very_Good="2",
                     Good="3",
                     Fair="4",
                     Poor="5")
  b3 <- ordered(b3, c("Excellent","Very_Good","Good","Fair","Poor"))

  new.d <- data.frame(new.d, b3)
  new.d <- apply_labels(new.d, b3 = "Current Health")
  temp.d <- data.frame (new.d, b3)  
  
  result<-questionr::freq(temp.d$b3, cum = TRUE, total = TRUE)
  kable(result, format = "simple", align = 'l')
n % val% %cum val%cum
Excellent 14 5.8 6.2 5.8 6.2
Very_Good 51 21.2 22.6 27.0 28.8
Good 90 37.3 39.8 64.3 68.6
Fair 59 24.5 26.1 88.8 94.7
Poor 12 5.0 5.3 93.8 100.0
NA 15 6.2 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

B4: Comorbidities

  • B4. Has the doctor ever told you that you have/had…
    • Heart Attack
    • Heart Failure or CHF
    • Stroke
    • Hypertension
    • Peripheral arterial disease
    • High Cholesterol
    • Asthma, COPD
    • Stomach ulcers
    • Crohn’s Disease
    • Diabetes
    • Kidney Problems
    • Cirrhosis, liver damage
    • Arthritis
    • Dementia
    • Depression
    • AIDS
    • Other Cancer
# Heart Attack
  b4aa <- as.factor(d[,"b4aa"])
# Make "*" to NA
b4aa[which(b4aa=="*")]<-"NA"
  levels(b4aa) <- list(No="1",
                     Yes="2")
  b4aa <- ordered(b4aa, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4aa)
  new.d <- apply_labels(new.d, b4aa = "Heart Attack")
  temp.d <- data.frame (new.d, b4aa)  
  
  result<-questionr::freq(temp.d$b4aa, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Heart Attack")
Heart Attack
n % val%
No 213 88.4 92.6
Yes 17 7.1 7.4
NA 11 4.6 NA
Total 241 100.0 100.0 
  b4ab <- as.factor(d[,"b4ab"])
  new.d <- data.frame(new.d, b4ab)
  new.d <- apply_labels(new.d, b4ab = "Heart Attack age")
  temp.d <- data.frame (new.d, b4ab)  
  result<-questionr::freq(temp.d$b4ab, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Heart Attack Age")
Heart Attack Age
n % val%
17 1 0.4 5.9
26 1 0.4 5.9
45 2 0.8 11.8
51 1 0.4 5.9
56 1 0.4 5.9
60 3 1.2 17.6
61 1 0.4 5.9
65 1 0.4 5.9
67 2 0.8 11.8
70 1 0.4 5.9
73 1 0.4 5.9
76 1 0.4 5.9
79 1 0.4 5.9
NA 224 92.9 NA
Total 241 100.0 100.0 
# Heart Failure or CHF
  b4ba <- as.factor(d[,"b4ba"])
  # Make "*" to NA
b4ba[which(b4ba=="*")]<-"NA"
  levels(b4ba) <- list(No="1",
                     Yes="2")
  b4ba <- ordered(b4ba, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4ba)
  new.d <- apply_labels(new.d, b4ba = "Heart Failure or CHF")
  temp.d <- data.frame (new.d, b4ba)  
  
  result<-questionr::freq(temp.d$b4ba, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Heart Failure or CHF")
Heart Failure or CHF
n % val%
No 213 88.4 93.4
Yes 15 6.2 6.6
NA 13 5.4 NA
Total 241 100.0 100.0 
  b4bb <- as.factor(d[,"b4bb"])
  new.d <- data.frame(new.d, b4bb)
  new.d <- apply_labels(new.d, b4bb = "Heart Failure or CHF age")
  temp.d <- data.frame (new.d, b4bb)  
  result<-questionr::freq(temp.d$b4bb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Heart Failure or CHF Age")
Heart Failure or CHF Age
n % val%
17 1 0.4 6.7
18 1 0.4 6.7
47 1 0.4 6.7
51 1 0.4 6.7
56 1 0.4 6.7
57 1 0.4 6.7
60 3 1.2 20.0
62 1 0.4 6.7
66 1 0.4 6.7
67 1 0.4 6.7
71 1 0.4 6.7
72 1 0.4 6.7
73 1 0.4 6.7
NA 226 93.8 NA
Total 241 100.0 100.0 
# Stroke  
  b4ca <- as.factor(d[,"b4ca"])
  # Make "*" to NA
b4ca[which(b4ca=="*")]<-"NA"
  levels(b4ca) <- list(No="1",
                     Yes="2")
  b4ca <- ordered(b4ca, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4ca)
  new.d <- apply_labels(new.d, b4ca = "Stroke")
  temp.d <- data.frame (new.d, b4ca)  
  
  result<-questionr::freq(temp.d$b4ca,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Stroke")
Stroke
n % val%
No 205 85.1 89.1
Yes 25 10.4 10.9
NA 11 4.6 NA
Total 241 100.0 100.0 
  b4cb <- as.factor(d[,"b4cb"])
  new.d <- data.frame(new.d, b4cb)
  new.d <- apply_labels(new.d, b4cb = "Stroke age")
  temp.d <- data.frame (new.d, b4cb)  
  result<-questionr::freq(temp.d$b4cb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Stroke Age")
Stroke Age
n % val%
25 1 0.4 4.5
42 1 0.4 4.5
47 1 0.4 4.5
48 1 0.4 4.5
49 1 0.4 4.5
5 1 0.4 4.5
50 1 0.4 4.5
52 1 0.4 4.5
57 1 0.4 4.5
59 2 0.8 9.1
62 3 1.2 13.6
63 1 0.4 4.5
65 2 0.8 9.1
68 2 0.8 9.1
70 1 0.4 4.5
79 2 0.8 9.1
NA 219 90.9 NA
Total 241 100.0 100.0 
# Hypertension 
  b4da <- as.factor(d[,"b4da"])
# Make "*" to NA
b4da[which(b4da=="*")]<-"NA"
  levels(b4da) <- list(No="1",
                     Yes="2")
  b4da <- ordered(b4da, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4da)
  new.d <- apply_labels(new.d, b4da = "Hypertension")
  temp.d <- data.frame (new.d, b4da)  
  
  result<-questionr::freq(temp.d$b4da, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Hypertension")
Hypertension
n % val%
No 74 30.7 33.2
Yes 149 61.8 66.8
NA 18 7.5 NA
Total 241 100.0 100.0 
  b4db <- as.factor(d[,"b4db"])
  new.d <- data.frame(new.d, b4db)
  new.d <- apply_labels(new.d, b4db = "Hypertension age")
  temp.d <- data.frame (new.d, b4db)  
  result<-questionr::freq(temp.d$b4db, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Hypertension Age")
Hypertension Age
n % val%
16 1 0.4 0.7
17 1 0.4 0.7
22 1 0.4 0.7
23 1 0.4 0.7
24 1 0.4 0.7
26 2 0.8 1.4
30 4 1.7 2.9
31 1 0.4 0.7
32 1 0.4 0.7
35 4 1.7 2.9
37 1 0.4 0.7
38 1 0.4 0.7
39 1 0.4 0.7
4 1 0.4 0.7
40 10 4.1 7.2
41 1 0.4 0.7
42 2 0.8 1.4
43 2 0.8 1.4
45 9 3.7 6.5
47 3 1.2 2.2
48 1 0.4 0.7
49 2 0.8 1.4
5 2 0.8 1.4
50 23 9.5 16.5
51 2 0.8 1.4
52 1 0.4 0.7
53 1 0.4 0.7
54 5 2.1 3.6
55 10 4.1 7.2
56 3 1.2 2.2
57 2 0.8 1.4
58 7 2.9 5.0
59 1 0.4 0.7
60 10 4.1 7.2
61 1 0.4 0.7
62 3 1.2 2.2
63 3 1.2 2.2
64 3 1.2 2.2
65 2 0.8 1.4
67 2 0.8 1.4
68 1 0.4 0.7
69 2 0.8 1.4
70 1 0.4 0.7
74 1 0.4 0.7
75 1 0.4 0.7
9 1 0.4 0.7
NA 102 42.3 NA
Total 241 100.0 100.0 
# Peripheral arterial disease 
  b4ea <- as.factor(d[,"b4ea"])
# Make "*" to NA
b4ea[which(b4ea=="*")]<-"NA"  
  levels(b4ea) <- list(No="1",
                     Yes="2")
  b4ea <- ordered(b4ea, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4ea)
  new.d <- apply_labels(new.d, b4ea = "Peripheral arterial disease")
  temp.d <- data.frame (new.d, b4ea)  
  
  result<-questionr::freq(temp.d$b4ea,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Peripheral arterial disease")
Peripheral arterial disease
n % val%
No 201 83.4 92.6
Yes 16 6.6 7.4
NA 24 10.0 NA
Total 241 100.0 100.0 
  b4eb <- as.factor(d[,"b4eb"])
  new.d <- data.frame(new.d, b4eb)
  new.d <- apply_labels(new.d, b4eb = "Peripheral arterial disease age")
  temp.d <- data.frame (new.d, b4eb)  
  result<-questionr::freq(temp.d$b4eb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Peripheral arterial disease Age")
Peripheral arterial disease Age
n % val%
0 1 0.4 6.2
40 1 0.4 6.2
48 1 0.4 6.2
50 1 0.4 6.2
51 1 0.4 6.2
56 1 0.4 6.2
57 1 0.4 6.2
58 1 0.4 6.2
60 1 0.4 6.2
62 1 0.4 6.2
64 1 0.4 6.2
65 1 0.4 6.2
66 1 0.4 6.2
69 1 0.4 6.2
70 1 0.4 6.2
76 1 0.4 6.2
NA 225 93.4 NA
Total 241 100.0 100.0 
# High Cholesterol 
  b4fa <- as.factor(d[,"b4fa"])
  # Make "*" to NA
b4fa[which(b4fa=="*")]<-"NA"
  levels(b4fa) <- list(No="1",
                     Yes="2")
  b4fa <- ordered(b4fa, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4fa)
  new.d <- apply_labels(new.d, b4fa = "High Cholesterol")
  temp.d <- data.frame (new.d, b4fa)  
  
  result<-questionr::freq(temp.d$b4fa, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "High Cholesterol")
High Cholesterol
n % val%
No 109 45.2 48.2
Yes 117 48.5 51.8
NA 15 6.2 NA
Total 241 100.0 100.0 
  b4fb <- as.factor(d[,"b4fb"])
  new.d <- data.frame(new.d, b4fb)
  new.d <- apply_labels(new.d, b4fb = "High Cholesterol age")
  temp.d <- data.frame (new.d, b4fb)  
  result<-questionr::freq(temp.d$b4fb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "High Cholesterol Age")
High Cholesterol Age
n % val%
1 1 0.4 1.0
10 1 0.4 1.0
19 1 0.4 1.0
20 1 0.4 1.0
26 1 0.4 1.0
28 1 0.4 1.0
29 1 0.4 1.0
30 1 0.4 1.0
34 1 0.4 1.0
35 3 1.2 3.1
38 1 0.4 1.0
40 3 1.2 3.1
42 1 0.4 1.0
45 6 2.5 6.2
47 1 0.4 1.0
48 1 0.4 1.0
49 2 0.8 2.1
50 10 4.1 10.4
51 1 0.4 1.0
53 1 0.4 1.0
54 1 0.4 1.0
55 8 3.3 8.3
56 5 2.1 5.2
57 4 1.7 4.2
58 3 1.2 3.1
59 3 1.2 3.1
6 1 0.4 1.0
60 8 3.3 8.3
61 1 0.4 1.0
62 2 0.8 2.1
63 3 1.2 3.1
64 1 0.4 1.0
65 7 2.9 7.3
66 2 0.8 2.1
68 2 0.8 2.1
70 1 0.4 1.0
74 2 0.8 2.1
75 1 0.4 1.0
86 1 0.4 1.0
99 1 0.4 1.0
NA 145 60.2 NA
Total 241 100.0 100.0 
#  Asthma, COPD
  b4ga <- as.factor(d[,"b4ga"])
  # Make "*" to NA
b4ga[which(b4ga=="*")]<-"NA"
  levels(b4ga) <- list(No="1",
                     Yes="2")
  b4ga <- ordered(b4ga, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4ga)
  new.d <- apply_labels(new.d, b4ga = "Asthma, COPD")
  temp.d <- data.frame (new.d, b4ga)  
  
  result<-questionr::freq(temp.d$b4ga, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Asthma, COPD")
Asthma, COPD
n % val%
No 194 80.5 81.5
Yes 44 18.3 18.5
NA 3 1.2 NA
Total 241 100.0 100.0 
  b4gb <- as.factor(d[,"b4gb"])
  new.d <- data.frame(new.d, b4gb)
  new.d <- apply_labels(new.d, b4gb = "Asthma, COPD age")
  temp.d <- data.frame (new.d, b4gb)  
  result<-questionr::freq(temp.d$b4gb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Asthma, COPD Age")
Asthma, COPD Age
n % val%
1 2 0.8 4.9
10 2 0.8 4.9
11 1 0.4 2.4
14 2 0.8 4.9
18 1 0.4 2.4
19 1 0.4 2.4
20 1 0.4 2.4
26 1 0.4 2.4
32 1 0.4 2.4
40 1 0.4 2.4
46 1 0.4 2.4
5 2 0.8 4.9
50 2 0.8 4.9
55 1 0.4 2.4
56 1 0.4 2.4
57 3 1.2 7.3
58 2 0.8 4.9
59 1 0.4 2.4
60 3 1.2 7.3
62 2 0.8 4.9
63 1 0.4 2.4
64 1 0.4 2.4
66 2 0.8 4.9
67 1 0.4 2.4
70 1 0.4 2.4
71 1 0.4 2.4
78 1 0.4 2.4
79 1 0.4 2.4
9 1 0.4 2.4
NA 200 83.0 NA
Total 241 100.0 100.0 
# Stomach ulcers
  b4ha <- as.factor(d[,"b4ha"])
  # Make "*" to NA
b4ha[which(b4ha=="*")]<-"NA"
  levels(b4ha) <- list(No="1",
                     Yes="2")
  b4ha <- ordered(b4ha, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4ha)
  new.d <- apply_labels(new.d, b4ha = "Stomach ulcers")
  temp.d <- data.frame (new.d, b4ha)  
  
  result<-questionr::freq(temp.d$b4ha, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Stomach ulcers")
Stomach ulcers
n % val%
No 216 89.6 90.4
Yes 23 9.5 9.6
NA 2 0.8 NA
Total 241 100.0 100.0 
  b4hb <- as.factor(d[,"b4hb"])
  new.d <- data.frame(new.d, b4hb)
  new.d <- apply_labels(new.d, b4hb = "Stomach ulcers age")
  temp.d <- data.frame (new.d, b4hb)  
  result<-questionr::freq(temp.d$b4hb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Stomach ulcers Age")
Stomach ulcers Age
n % val%
14 1 0.4 5.9
22 1 0.4 5.9
28 1 0.4 5.9
30 1 0.4 5.9
34 1 0.4 5.9
35 1 0.4 5.9
40 1 0.4 5.9
45 1 0.4 5.9
46 1 0.4 5.9
48 1 0.4 5.9
50 2 0.8 11.8
60 1 0.4 5.9
62 1 0.4 5.9
64 1 0.4 5.9
65 1 0.4 5.9
68 1 0.4 5.9
NA 224 92.9 NA
Total 241 100.0 100.0 
# Crohn's Disease
  b4ia <- as.factor(d[,"b4ia"])
  # Make "*" to NA
b4ia[which(b4ia=="*")]<-"NA"
  levels(b4ia) <- list(No="1",
                     Yes="2")
  b4ia <- ordered(b4ia, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4ia)
  new.d <- apply_labels(new.d, b4ia = "Crohn's Disease")
  temp.d <- data.frame (new.d, b4ia)  
  
  result<-questionr::freq(temp.d$b4ia, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Crohn's Disease")
Crohn’s Disease
n % val%
No 230 95.4 98.7
Yes 3 1.2 1.3
NA 8 3.3 NA
Total 241 100.0 100.0 
  b4ib <- as.factor(d[,"b4ib"])
  new.d <- data.frame(new.d, b4ib)
  new.d <- apply_labels(new.d, b4ib = "Crohn's Disease age")
  temp.d <- data.frame (new.d, b4ib)  
  result<-questionr::freq(temp.d$b4ib, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Crohn's Disease Age")
Crohn’s Disease Age
n % val%
34 1 0.4 25
40 1 0.4 25
44 1 0.4 25
64 1 0.4 25
NA 237 98.3 NA
Total 241 100.0 100 
# Diabetes
  b4ja <- as.factor(d[,"b4ja"])
  # Make "*" to NA
b4ja[which(b4ja=="*")]<-"NA"
  levels(b4ja) <- list(No="1",
                     Yes="2")
  b4ja <- ordered(b4ja, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4ja)
  new.d <- apply_labels(new.d, b4ja = "Diabetes")
  temp.d <- data.frame (new.d, b4ja)  
  
  result<-questionr::freq(temp.d$b4ja, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Diabetes")
Diabetes
n % val%
No 166 68.9 69.7
Yes 72 29.9 30.3
NA 3 1.2 NA
Total 241 100.0 100.0 
  b4jb <- as.factor(d[,"b4jb"])
  new.d <- data.frame(new.d, b4jb)
  new.d <- apply_labels(new.d, b4jb = "Diabetes age")
  temp.d <- data.frame (new.d, b4jb)  
  result<-questionr::freq(temp.d$b4jb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Diabetes Age")
Diabetes Age
n % val%
19 1 0.4 1.7
20 1 0.4 1.7
22 1 0.4 1.7
29 2 0.8 3.3
35 3 1.2 5.0
36 1 0.4 1.7
38 1 0.4 1.7
40 1 0.4 1.7
42 1 0.4 1.7
43 2 0.8 3.3
45 3 1.2 5.0
47 1 0.4 1.7
49 2 0.8 3.3
50 8 3.3 13.3
53 1 0.4 1.7
54 3 1.2 5.0
55 4 1.7 6.7
57 5 2.1 8.3
58 2 0.8 3.3
60 4 1.7 6.7
62 2 0.8 3.3
63 3 1.2 5.0
64 1 0.4 1.7
65 3 1.2 5.0
66 1 0.4 1.7
69 3 1.2 5.0
NA 181 75.1 NA
Total 241 100.0 100.0 
# Kidney Problems
  b4ka <- as.factor(d[,"b4ka"])
  # Make "*" to NA
b4ka[which(b4ka=="*")]<-"NA"
  levels(b4ka) <- list(No="1",
                     Yes="2")
  b4ka <- ordered(b4ka, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4ka)
  new.d <- apply_labels(new.d, b4ka = "Kidney Problems")
  temp.d <- data.frame (new.d, b4ka)  
  
  result<-questionr::freq(temp.d$b4ka, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Kidney Problems")
Kidney Problems
n % val%
No 222 92.1 93.3
Yes 16 6.6 6.7
NA 3 1.2 NA
Total 241 100.0 100.0 
  b4kb <- as.factor(d[,"b4kb"])
  new.d <- data.frame(new.d, b4kb)
  new.d <- apply_labels(new.d, b4kb = "Kidney Problems age")
  temp.d <- data.frame (new.d, b4kb)  
  result<-questionr::freq(temp.d$b4kb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Kidney Problems Age")
Kidney Problems Age
n % val%
15 2 0.8 13.3
40 1 0.4 6.7
48 1 0.4 6.7
50 1 0.4 6.7
57 2 0.8 13.3
59 1 0.4 6.7
60 1 0.4 6.7
61 1 0.4 6.7
62 2 0.8 13.3
67 1 0.4 6.7
68 1 0.4 6.7
72 1 0.4 6.7
NA 226 93.8 NA
Total 241 100.0 100.0 
# Cirrhosis, liver damage
  b4la <- as.factor(d[,"b4la"])
  # Make "*" to NA
b4la[which(b4la=="*")]<-"NA"
  levels(b4la) <- list(No="1",
                     Yes="2")
  b4la <- ordered(b4la, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4la)
  new.d <- apply_labels(new.d, b4la = "Cirrhosis, liver damage")
  temp.d <- data.frame (new.d, b4la)  
  
  result<-questionr::freq(temp.d$b4la, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Cirrhosis, liver damage")
Cirrhosis, liver damage
n % val%
No 238 98.8 99.2
Yes 2 0.8 0.8
NA 1 0.4 NA
Total 241 100.0 100.0 
  b4lb <- as.factor(d[,"b4lb"])
  new.d <- data.frame(new.d, b4lb)
  new.d <- apply_labels(new.d, b4lb = "Cirrhosis, liver damage age")
  temp.d <- data.frame (new.d, b4lb)  
  result<-questionr::freq(temp.d$b4lb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Cirrhosis, liver damage Age")
Cirrhosis, liver damage Age
n % val%
49 1 0.4 50
74 1 0.4 50
NA 239 99.2 NA
Total 241 100.0 100 
# Arthritis
  b4ma <- as.factor(d[,"b4ma"])
  # Make "*" to NA
b4ma[which(b4ma=="*")]<-"NA"
  levels(b4ma) <- list(No="1",
                     Yes="2")
  b4ma <- ordered(b4ma, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4ma)
  new.d <- apply_labels(new.d, b4ma = "Arthritis")
  temp.d <- data.frame (new.d, b4ma)  
  
  result<-questionr::freq(temp.d$b4ma, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Arthritis")
Arthritis
n % val%
No 198 82.2 83.2
Yes 40 16.6 16.8
NA 3 1.2 NA
Total 241 100.0 100.0 
  b4mb <- as.factor(d[,"b4mb"])
  new.d <- data.frame(new.d, b4mb)
  new.d <- apply_labels(new.d, b4mb = "Arthritis age")
  temp.d <- data.frame (new.d, b4mb)  
  result<-questionr::freq(temp.d$b4mb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Arthritis Age")
Arthritis Age
n % val%
19 1 0.4 2.9
23 1 0.4 2.9
30 1 0.4 2.9
35 1 0.4 2.9
4 1 0.4 2.9
40 3 1.2 8.8
42 1 0.4 2.9
44 1 0.4 2.9
45 2 0.8 5.9
50 4 1.7 11.8
51 1 0.4 2.9
54 1 0.4 2.9
55 5 2.1 14.7
56 2 0.8 5.9
57 1 0.4 2.9
58 1 0.4 2.9
60 5 2.1 14.7
63 1 0.4 2.9
65 1 0.4 2.9
NA 207 85.9 NA
Total 241 100.0 100.0 
# Dementia
  b4na <- as.factor(d[,"b4na"])
  # Make "*" to NA
b4na[which(b4na=="*")]<-"NA"
  levels(b4na) <- list(No="1",
                     Yes="2")
  b4na <- ordered(b4na, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4na)
  new.d <- apply_labels(new.d, b4na = "Dementia")
  temp.d <- data.frame (new.d, b4na)  
  
  result<-questionr::freq(temp.d$b4na, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Dementia")
Dementia
n % val%
No 237 98.3 100
Yes 0 0.0 0
NA 4 1.7 NA
Total 241 100.0 100 
  b4nb <- as.factor(d[,"b4nb"])
  new.d <- data.frame(new.d, b4nb)
  new.d <- apply_labels(new.d, b4nb = "Dementia age")
  temp.d <- data.frame (new.d, b4nb)  
  result<-questionr::freq(temp.d$b4nb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Dementia Age")
Dementia Age
n % val%
NA 241 100 NA
Total 241 100 100 
# Depression 
  b4oa <- as.factor(d[,"b4oa"])
  # Make "*" to NA
b4oa[which(b4oa=="*")]<-"NA"
  levels(b4oa) <- list(No="1",
                     Yes="2")
  b4oa <- ordered(b4oa, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4oa)
  new.d <- apply_labels(new.d, b4oa = "Depression")
  temp.d <- data.frame (new.d, b4oa)  
  
  result<-questionr::freq(temp.d$b4oa, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Depression")
Depression
n % val%
No 196 81.3 83.1
Yes 40 16.6 16.9
NA 5 2.1 NA
Total 241 100.0 100.0 
  b4ob <- as.factor(d[,"b4ob"])
  new.d <- data.frame(new.d, b4ob)
  new.d <- apply_labels(new.d, b4ob = "Depression age")
  temp.d <- data.frame (new.d, b4ob)  
  result<-questionr::freq(temp.d$b4ob, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Depression Age")
Depression Age
n % val%
16 1 0.4 3.0
19 1 0.4 3.0
20 2 0.8 6.1
24 1 0.4 3.0
25 1 0.4 3.0
34 1 0.4 3.0
40 1 0.4 3.0
44 1 0.4 3.0
45 2 0.8 6.1
47 1 0.4 3.0
50 4 1.7 12.1
52 1 0.4 3.0
54 1 0.4 3.0
56 1 0.4 3.0
57 2 0.8 6.1
58 2 0.8 6.1
59 1 0.4 3.0
60 2 0.8 6.1
61 2 0.8 6.1
64 1 0.4 3.0
65 2 0.8 6.1
75 1 0.4 3.0
98 1 0.4 3.0
NA 208 86.3 NA
Total 241 100.0 100.0 
# AIDS
  b4pa <- as.factor(d[,"b4pa"])
  # Make "*" to NA
b4pa[which(b4pa=="*")]<-"NA"
  levels(b4pa) <- list(No="1",
                     Yes="2")
  b4pa <- ordered(b4pa, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4pa)
  new.d <- apply_labels(new.d, b4pa = "AIDS")
  temp.d <- data.frame (new.d, b4pa)  
  
  result<-questionr::freq(temp.d$b4pa, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "AIDS")
AIDS
n % val%
No 233 96.7 99.6
Yes 1 0.4 0.4
NA 7 2.9 NA
Total 241 100.0 100.0 
  b4pb <- as.factor(d[,"b4pb"])
  new.d <- data.frame(new.d, b4pb)
  new.d <- apply_labels(new.d, b4pb = "AIDS age")
  temp.d <- data.frame (new.d, b4pb)  
  result<-questionr::freq(temp.d$b4pb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "AIDS Age")
AIDS Age
n % val%
59 1 0.4 100
NA 240 99.6 NA
Total 241 100.0 100 
# Other Cancer
  b4qa <- as.factor(d[,"b4qa"])
  # Make "*" to NA
b4qa[which(b4qa=="*")]<-"NA"
  levels(b4qa) <- list(No="1",
                     Yes="2")
  b4qa <- ordered(b4qa, c("No", "Yes"))
  
  new.d <- data.frame(new.d, b4qa)
  new.d <- apply_labels(new.d, b4qa = "Other Cancer")
  temp.d <- data.frame (new.d, b4qa)  
  
  result<-questionr::freq(temp.d$b4qa, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Other Cancer")
Other Cancer
n % val%
No 212 88.0 93
Yes 16 6.6 7
NA 13 5.4 NA
Total 241 100.0 100 
  b4qb <- as.factor(d[,"b4qb"])
  new.d <- data.frame(new.d, b4qb)
  new.d <- apply_labels(new.d, b4qb = "Other Cancer age")
  temp.d <- data.frame (new.d, b4qb)  
  result<-questionr::freq(temp.d$b4qb, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "Other Cancer Age")
Other Cancer Age
n % val%
10 1 0.4 6.2
44 2 0.8 12.5
50 1 0.4 6.2
51 2 0.8 12.5
54 1 0.4 6.2
59 2 0.8 12.5
62 1 0.4 6.2
63 2 0.8 12.5
66 2 0.8 12.5
68 1 0.4 6.2
74 1 0.4 6.2
NA 225 93.4 NA
Total 241 100.0 100.0

B4Q Other Cancer

b4qother <- d[,"b4qother"]
  new.d <- data.frame(new.d, b4qother)
  new.d <- apply_labels(new.d, b4qother = "b4qother")
  temp.d <- data.frame (new.d, b4qother)
result<-questionr::freq(temp.d$b4qother, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B4Q Other")
B4Q Other
n % val%
Bladder 1 0.4 6.2
Bladder cancer. 1 0.4 6.2
Bone 1 0.4 6.2
Breast cancer 1 0.4 6.2
CO 1 0.4 6.2
Kidney 1 0.4 6.2
Leukemia 1 0.4 6.2
Lung (left 2016) right-present 1 0.4 6.2
Lung cancer. 1 0.4 6.2
Meningioma 1 0.4 6.2
MPD and AML 1 0.4 6.2
Myeloma 1 0.4 6.2
Neck cancer 1 0.4 6.2
Over active white blood cell 1 0.4 6.2
Thyroid 1 0.4 6.2
Yes, prostate cancer. 1 0.4 6.2
NA 225 93.4 NA
Total 241 100.0 100.0

B5: Routine care

  • B5. Where do you usually go for routine medical care (seeing a doctor for any reason, not just for cancer care)?
    • 1=Community health center or free clinic
    • 2=Hospital (not emergency)/ urgent care clinic
    • 3=Private doctor’s office
    • 4=Emergency room
    • 5=Veteran’s Affairs/VA
    • 6=Other type of location
  b5 <- as.factor(d[,"b5"])
# Make "*" to NA
b5[which(b5=="*")]<-"NA"
  levels(b5) <- list(Community_center_free_clinic="1",
                     Hospital_urgent_care_clinic="2",
                     Private_Dr_office="3",
                     ER="4",
                     VA="5",
                     Other="6")
  b5 <- ordered(b5, c("Community_center_free_clinic", "Hospital_urgent_care_clinic", "Private_Dr_office", "ER","VA","Other"))
  
  new.d <- data.frame(new.d, b5)
  new.d <- apply_labels(new.d, b5 = "routine medical care")
  temp.d <- data.frame (new.d, b5)  
  
  result<-questionr::freq(temp.d$b5 ,total = TRUE)
  kable(result, format = "simple", align = 'l')
n % val%
Community_center_free_clinic 18 7.5 8.4
Hospital_urgent_care_clinic 29 12.0 13.5
Private_Dr_office 154 63.9 71.6
ER 1 0.4 0.5
VA 7 2.9 3.3
Other 6 2.5 2.8
NA 26 10.8 NA
Total 241 100.0 100.0

B5 Other: Routine care

b5other <- d[,"b5other"]
  new.d <- data.frame(new.d, b5other)
  new.d <- apply_labels(new.d, b5other = "b5other")
  temp.d <- data.frame (new.d, b5other)
result<-questionr::freq(temp.d$b5other, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "B5 Other")
B5 Other
n % val%
Beaumont Doctors and VA 1 0.4 7.7
Dialyse dialysis. 1 0.4 7.7
Dr. Feldman (Oakland Family Practice office) 1 0.4 7.7
Henry Ford hospital clinic 1 0.4 7.7
Karmanos 1 0.4 7.7
Karmanos 4100 John 1 0.4 7.7
Primary Care 1 0.4 7.7
Primary Care Doctor 1 0.4 7.7
Primary Doc 1 0.4 7.7
Sini Grace Professional Bldg 1 0.4 7.7
St. Mary’s Livonia 1 0.4 7.7
The —- Plan 1 0.4 7.7
Wayne State Urology 1 0.4 7.7
NA 228 94.6 NA
Total 241 100.0 100.0

C1: Years lived at current address

  • C1. How many years have you lived in your current address?
    • 1=Less than 1 year
    • 2=1-5 years
    • 3=6-10 years
    • 4=11-15 years
    • 5=16-20 years
    • 6=21+ years
  c1 <- as.factor(d[,"c1"])
# Make "*" to NA
c1[which(c1=="*")]<-"NA"
  levels(c1) <- list(Less_than_1_year="1",
                     years_1_5="2",
                     years_6_10="3",
                     years_11_15="4",
                     years_16_20="5",
                     years_21_more="6")
  c1 <- ordered(c1, c("Less_than_1_year", "years_1_5", "years_6_10", "years_11_15","years_16_20","years_21_more"))
  
  new.d <- data.frame(new.d, c1)
  new.d <- apply_labels(new.d, c1 = "living period")
  temp.d <- data.frame (new.d, c1)  
  
  result<-questionr::freq(temp.d$c1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l')
n % val% %cum val%cum
Less_than_1_year 12 5.0 5.0 5.0 5.0
years_1_5 43 17.8 18.0 22.8 23.0
years_6_10 35 14.5 14.6 37.3 37.7
years_11_15 30 12.4 12.6 49.8 50.2
years_16_20 22 9.1 9.2 58.9 59.4
years_21_more 97 40.2 40.6 99.2 100.0
NA 2 0.8 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C2A: Feel safe walking in the neighborhood

    1. On average, I felt/feel safe walking in my neighborhood day or night.
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis)
      1. Childhood or young adult life (up to age 30)
      • 1=Strongly Agree
      • 2=Agree
      • 3=Neutral (neither agree nor disagree)
      • 4=Disagree
      • 5=Strongly Disagree
  c2a1 <- as.factor(d[,"c2a1"])
# Make "*" to NA
c2a1[which(c2a1=="*")]<-"NA"
  levels(c2a1) <- list(Strongly_Agree="1",
                     Agree="2",
                     Neutral="3",
                     Disagree="4",
                     Strongly_Disagree="5")
  c2a1 <- ordered(c2a1, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, c2a1)
  new.d <- apply_labels(new.d, c2a1 = "walk in the neighborhood-current")
  temp.d <- data.frame (new.d, c2a1)  
  
  c2a2 <- as.factor(d[,"c2a2"])
  # Make "*" to NA
c2a2[which(c2a2=="*")]<-"NA"
  levels(c2a2) <- list(Strongly_Agree="1",
                     Agree="2",
                     Neutral="3",
                     Disagree="4",
                     Strongly_Disagree="5")
  c2a2 <- ordered(c2a2, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, c2a2)
  new.d <- apply_labels(new.d, c2a2 = "walk in the neighborhood-age 31 up")
  temp.d <- data.frame (new.d, c2a2) 
  
  c2a3 <- as.factor(d[,"c2a3"])
  # Make "*" to NA
c2a3[which(c2a3=="*")]<-"NA"
  levels(c2a3) <- list(Strongly_Agree="1",
                     Agree="2",
                     Neutral="3",
                     Disagree="4",
                     Strongly_Disagree="5")
  c2a3 <- ordered(c2a3, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, c2a3)
  new.d <- apply_labels(new.d, c2a3 = "walk in the neighborhood-Childhood or young")
  temp.d <- data.frame (new.d, c2a3)
  
  result<-questionr::freq(temp.d$c2a1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Strongly_Agree 85 35.3 36.0 35.3 36.0
Agree 81 33.6 34.3 68.9 70.3
Neutral 52 21.6 22.0 90.5 92.4
Disagree 12 5.0 5.1 95.4 97.5
Strongly_Disagree 6 2.5 2.5 97.9 100.0
NA 5 2.1 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c2a2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis)")
2. Age 31 up to just before prostate cancer diagnosis)
n % val% %cum val%cum
Strongly_Agree 66 27.4 29.3 27.4 29.3
Agree 91 37.8 40.4 65.1 69.8
Neutral 46 19.1 20.4 84.2 90.2
Disagree 19 7.9 8.4 92.1 98.7
Strongly_Disagree 3 1.2 1.3 93.4 100.0
NA 16 6.6 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c2a3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Strongly_Agree 73 30.3 33.5 30.3 33.5
Agree 80 33.2 36.7 63.5 70.2
Neutral 49 20.3 22.5 83.8 92.7
Disagree 14 5.8 6.4 89.6 99.1
Strongly_Disagree 2 0.8 0.9 90.5 100.0
NA 23 9.5 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C2B: Violence

    1. Violence was/is not a problem in my neighborhood.
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis)
      1. Childhood or young adult life (up to age 30)
      • 1=Strongly Agree
      • 2=Agree
      • 3=Neutral (neither agree nor disagree)
      • 4=Disagree
      • 5=Strongly Disagree
  c2b1 <- as.factor(d[,"c2b1"])
# Make "*" to NA
c2b1[which(c2b1=="*")]<-"NA"
  levels(c2b1) <- list(Strongly_Agree="1",
                     Agree="2",
                     Neutral="3",
                     Disagree="4",
                     Strongly_Disagree="5")
  c2b1 <- ordered(c2b1, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, c2b1)
  new.d <- apply_labels(new.d, c2b1 = "Violence in the neighborhood-current")
  temp.d <- data.frame (new.d, c2b1)  
  
  c2b2 <- as.factor(d[,"c2b2"])
  # Make "*" to NA
c2b2[which(c2b2=="*")]<-"NA"
  levels(c2b2) <- list(Strongly_Agree="1",
                     Agree="2",
                     Neutral="3",
                     Disagree="4",
                     Strongly_Disagree="5")
  c2b2 <- ordered(c2b2, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, c2b2)
  new.d <- apply_labels(new.d, c2b2 = "Violence in the neighborhood-age 31 up")
  temp.d <- data.frame (new.d, c2b2) 
  
  c2b3 <- as.factor(d[,"c2b3"])
  # Make "*" to NA
c2b3[which(c2b3=="*")]<-"NA"
  levels(c2b3) <- list(Strongly_Agree="1",
                     Agree="2",
                     Neutral="3",
                     Disagree="4",
                     Strongly_Disagree="5")
  c2b3 <- ordered(c2b3, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, c2b3)
  new.d <- apply_labels(new.d, c2b3 = "Violence in the neighborhood-Childhood or young")
  temp.d <- data.frame (new.d, c2b3)
  
  result<-questionr::freq(temp.d$c2b1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Strongly_Agree 57 23.7 24.7 23.7 24.7
Agree 69 28.6 29.9 52.3 54.5
Neutral 68 28.2 29.4 80.5 84.0
Disagree 24 10.0 10.4 90.5 94.4
Strongly_Disagree 13 5.4 5.6 95.9 100.0
NA 10 4.1 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c2b2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis)")
2. Age 31 up to just before prostate cancer diagnosis)
n % val% %cum val%cum
Strongly_Agree 39 16.2 17.6 16.2 17.6
Agree 77 32.0 34.7 48.1 52.3
Neutral 65 27.0 29.3 75.1 81.5
Disagree 33 13.7 14.9 88.8 96.4
Strongly_Disagree 8 3.3 3.6 92.1 100.0
NA 19 7.9 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c2b3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Strongly_Agree 49 20.3 22.9 20.3 22.9
Agree 64 26.6 29.9 46.9 52.8
Neutral 66 27.4 30.8 74.3 83.6
Disagree 29 12.0 13.6 86.3 97.2
Strongly_Disagree 6 2.5 2.8 88.8 100.0
NA 27 11.2 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C2C: Safe from crime

    1. My neighborhood was/is safe from crime.
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis)
      1. Childhood or young adult life (up to age 30)
      • 1=Strongly Agree
      • 2=Agree
      • 3=Neutral (neither agree nor disagree)
      • 4=Disagree
      • 5=Strongly Disagree
  c2c1 <- as.factor(d[,"c2c1"])
# Make "*" to NA
c2c1[which(c2c1=="*")]<-"NA"
  levels(c2c1) <- list(Strongly_Agree="1",
                     Agree="2",
                     Neutral="3",
                     Disagree="4",
                     Strongly_Disagree="5")
  c2c1 <- ordered(c2c1, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, c2c1)
  new.d <- apply_labels(new.d, c2c1 = "safe from crime in the neighborhood-current")
  temp.d <- data.frame (new.d, c2c1)  
  
  c2c2 <- as.factor(d[,"c2c2"])
  # Make "*" to NA
c2c2[which(c2c2=="*")]<-"NA"
  levels(c2c2) <- list(Strongly_Agree="1",
                     Agree="2",
                     Neutral="3",
                     Disagree="4",
                     Strongly_Disagree="5")
  c2c2 <- ordered(c2c2, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, c2c2)
  new.d <- apply_labels(new.d, c2c2 = "safe from crime in the neighborhood-age 31 up")
  temp.d <- data.frame (new.d, c2c2) 
  
  c2c3 <- as.factor(d[,"c2c3"])
  # Make "*" to NA
c2c3[which(c2c3=="*")]<-"NA"
  levels(c2c3) <- list(Strongly_Agree="1",
                     Agree="2",
                     Neutral="3",
                     Disagree="4",
                     Strongly_Disagree="5")
  c2c3 <- ordered(c2c3, c("Strongly_Agree", "Agree", "Neutral", "Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, c2c3)
  new.d <- apply_labels(new.d, c2c3 = "safe from crime in the neighborhood-Childhood or young")
  temp.d <- data.frame (new.d, c2c3)
  
  result<-questionr::freq(temp.d$c2c1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Strongly_Agree 42 17.4 18.1 17.4 18.1
Agree 52 21.6 22.4 39.0 40.5
Neutral 81 33.6 34.9 72.6 75.4
Disagree 43 17.8 18.5 90.5 94.0
Strongly_Disagree 14 5.8 6.0 96.3 100.0
NA 9 3.7 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c2c2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis)")
2. Age 31 up to just before prostate cancer diagnosis)
n % val% %cum val%cum
Strongly_Agree 26 10.8 11.9 10.8 11.9
Agree 51 21.2 23.4 32.0 35.3
Neutral 77 32.0 35.3 63.9 70.6
Disagree 48 19.9 22.0 83.8 92.7
Strongly_Disagree 16 6.6 7.3 90.5 100.0
NA 23 9.5 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c2c3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Strongly_Agree 32 13.3 15.0 13.3 15.0
Agree 51 21.2 23.9 34.4 39.0
Neutral 77 32.0 36.2 66.4 75.1
Disagree 41 17.0 19.2 83.4 94.4
Strongly_Disagree 12 5.0 5.6 88.4 100.0
NA 28 11.6 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C3A: Traffic

  • C3. Thinking about your neighborhood during the following 3 time periods, as a whole, how much of a problem is/was…
    1. Traffic
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Non/Minor problem
      • 2=Somewhat serious problem
      • 3=Very serious problem
      • 88=Don’t Know
  c3a1 <- as.factor(d[,"c3a1"])
# Make "*" to NA
c3a1[which(c3a1=="*")]<-"NA"
  levels(c3a1) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3a1 <- ordered(c3a1, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3a1)
  new.d <- apply_labels(new.d, c3a1 = "A lot of noise-Current")
  temp.d <- data.frame (new.d, c3a1)  
  
  c3a2 <- as.factor(d[,"c3a2"])
  # Make "*" to NA
c3a2[which(c3a2=="*")]<-"NA"
  levels(c3a2) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3a2 <- ordered(c3a2, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3a2)
  new.d <- apply_labels(new.d, c3a2 = "A lot of noise-age 31 up")
  temp.d <- data.frame (new.d, c3a2) 
  
  c3a3 <- as.factor(d[,"c3a3"])
  # Make "*" to NA
c3a3[which(c3a3=="*")]<-"NA"
  levels(c3a3) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3a3 <- ordered(c3a3, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3a3)
  new.d <- apply_labels(new.d, c3a3 = "A lot of noise-Childhood or young")
  temp.d <- data.frame (new.d, c3a3)
  
  result<-questionr::freq(temp.d$c3a1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Non_Minor 158 65.6 68.4 65.6 68.4
Somewhat_serious 47 19.5 20.3 85.1 88.7
Very_serious 12 5.0 5.2 90.0 93.9
Dont_know 14 5.8 6.1 95.9 100.0
NA 10 4.1 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c3a2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val% %cum val%cum
Non_Minor 148 61.4 67.6 61.4 67.6
Somewhat_serious 52 21.6 23.7 83.0 91.3
Very_serious 6 2.5 2.7 85.5 94.1
Dont_know 13 5.4 5.9 90.9 100.0
NA 22 9.1 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c3a3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Non_Minor 150 62.2 69.4 62.2 69.4
Somewhat_serious 37 15.4 17.1 77.6 86.6
Very_serious 5 2.1 2.3 79.7 88.9
Dont_know 24 10.0 11.1 89.6 100.0
NA 25 10.4 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C3B: Noise

  • C3. Thinking about your neighborhood during the following 3 time periods, as a whole, how much of a problem is/was…
    1. A lot of noise
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Non/Minor problem
      • 2=Somewhat serious problem
      • 3=Very serious problem
      • 88=Don’t Know
  c3b1 <- as.factor(d[,"c3b1"])
# Make "*" to NA
c3b1[which(c3b1=="*")]<-"NA"
  levels(c3b1) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3b1 <- ordered(c3b1, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3b1)
  new.d <- apply_labels(new.d, c3b1 = "A lot of noise-Current")
  temp.d <- data.frame (new.d, c3b1)  
  
  c3b2 <- as.factor(d[,"c3b2"])
  # Make "*" to NA
c3b2[which(c3b2=="*")]<-"NA"
  levels(c3b2) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3b2 <- ordered(c3b2, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3b2)
  new.d <- apply_labels(new.d, c3b2 = "A lot of noise-age 31 up")
  temp.d <- data.frame (new.d, c3b2) 
  
  c3b3 <- as.factor(d[,"c3b3"])
  # Make "*" to NA
c3b3[which(c3b3=="*")]<-"NA"
  levels(c3b3) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3b3 <- ordered(c3b3, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3b3)
  new.d <- apply_labels(new.d, c3b3 = "A lot of noise-Childhood or young")
  temp.d <- data.frame (new.d, c3b3)
  
  result<-questionr::freq(temp.d$c3b1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Non_Minor 177 73.4 77.6 73.4 77.6
Somewhat_serious 40 16.6 17.5 90.0 95.2
Very_serious 5 2.1 2.2 92.1 97.4
Dont_know 6 2.5 2.6 94.6 100.0
NA 13 5.4 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c3b2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val% %cum val%cum
Non_Minor 160 66.4 72.4 66.4 72.4
Somewhat_serious 42 17.4 19.0 83.8 91.4
Very_serious 9 3.7 4.1 87.6 95.5
Dont_know 10 4.1 4.5 91.7 100.0
NA 20 8.3 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c3b3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Non_Minor 154 63.9 71.6 63.9 71.6
Somewhat_serious 38 15.8 17.7 79.7 89.3
Very_serious 6 2.5 2.8 82.2 92.1
Dont_know 17 7.1 7.9 89.2 100.0
NA 26 10.8 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C3C: Trash and litter

  • C3. Thinking about your neighborhood during the following 3 time periods, as a whole, how much of a problem is/was…
    1. Trash and litter
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Non/Minor problem
      • 2=Somewhat serious problem
      • 3=Very serious problem
      • 88=Don’t Know
  c3c1 <- as.factor(d[,"c3c1"])
# Make "*" to NA
c3c1[which(c3c1=="*")]<-"NA"
  levels(c3c1) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3c1 <- ordered(c3c1, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3c1)
  new.d <- apply_labels(new.d, c3c1 = "Trash and litter-Current")
  temp.d <- data.frame (new.d, c3c1)  
  
  c3c2 <- as.factor(d[,"c3c2"])
  # Make "*" to NA
c3c2[which(c3c2=="*")]<-"NA"
  levels(c3c2) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3c2 <- ordered(c3c2, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3c2)
  new.d <- apply_labels(new.d, c3c2 = "Trash and litter-age 31 up")
  temp.d <- data.frame (new.d, c3c2) 
  
  c3c3 <- as.factor(d[,"c3c3"])
  # Make "*" to NA
c3c3[which(c3c3=="*")]<-"NA"
  levels(c3c3) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3c3 <- ordered(c3c3, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3c3)
  new.d <- apply_labels(new.d, c3c3 = "Trash and litter-Childhood or young")
  temp.d <- data.frame (new.d, c3c3)
  
  result<-questionr::freq(temp.d$c3c1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Non_Minor 177 73.4 76.6 73.4 76.6
Somewhat_serious 34 14.1 14.7 87.6 91.3
Very_serious 14 5.8 6.1 93.4 97.4
Dont_know 6 2.5 2.6 95.9 100.0
NA 10 4.1 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c3c2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val% %cum val%cum
Non_Minor 153 63.5 69.2 63.5 69.2
Somewhat_serious 48 19.9 21.7 83.4 91.0
Very_serious 15 6.2 6.8 89.6 97.7
Dont_know 5 2.1 2.3 91.7 100.0
NA 20 8.3 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c3c3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Non_Minor 154 63.9 70.6 63.9 70.6
Somewhat_serious 43 17.8 19.7 81.7 90.4
Very_serious 10 4.1 4.6 85.9 95.0
Dont_know 11 4.6 5.0 90.5 100.0
NA 23 9.5 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C3D: Too much light at night

  • C3. Thinking about your neighborhood during the following 3 time periods, as a whole, how much of a problem is/was…
    1. Too much light at night
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Non/Minor problem
      • 2=Somewhat serious problem
      • 3=Very serious problem
      • 88=Don’t Know
  c3d1 <- as.factor(d[,"c3d1"])
# Make "*" to NA
c3d1[which(c3d1=="*")]<-"NA"
  levels(c3d1) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3d1 <- ordered(c3d1, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3d1)
  new.d <- apply_labels(new.d, c3d1 = "Too much light at night-Current")
  temp.d <- data.frame (new.d, c3d1)  
  
  c3d2 <- as.factor(d[,"c3d2"])
  # Make "*" to NA
c3d2[which(c3d2=="*")]<-"NA"
  levels(c3d2) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3d2 <- ordered(c3d2, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3d2)
  new.d <- apply_labels(new.d, c3d2 = "Too much light at night-age 31 up")
  temp.d <- data.frame (new.d, c3d2) 
  
  c3d3 <- as.factor(d[,"c3d3"])
  # Make "*" to NA
c3d3[which(c3d3=="*")]<-"NA"
  levels(c3d3) <- list(Non_Minor="1",
                     Somewhat_serious="2",
                     Very_serious="3",
                     Dont_know="88")
  c3d3 <- ordered(c3d3, c("Non_Minor", "Somewhat_serious", "Very_serious", "Dont_know"))
  
  new.d <- data.frame(new.d, c3d3)
  new.d <- apply_labels(new.d, c3d3 = "Too much light at night-Childhood or young")
  temp.d <- data.frame (new.d, c3d3)
  
  result<-questionr::freq(temp.d$c3d1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Non_Minor 208 86.3 90.4 86.3 90.4
Somewhat_serious 11 4.6 4.8 90.9 95.2
Very_serious 2 0.8 0.9 91.7 96.1
Dont_know 9 3.7 3.9 95.4 100.0
NA 11 4.6 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c3d2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val% %cum val%cum
Non_Minor 187 77.6 85.4 77.6 85.4
Somewhat_serious 21 8.7 9.6 86.3 95.0
Very_serious 1 0.4 0.5 86.7 95.4
Dont_know 10 4.1 4.6 90.9 100.0
NA 22 9.1 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c3d3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Non_Minor 179 74.3 83.6 74.3 83.6
Somewhat_serious 18 7.5 8.4 81.7 92.1
Very_serious 2 0.8 0.9 82.6 93.0
Dont_know 15 6.2 7.0 88.8 100.0
NA 27 11.2 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C4A: Neighbors talking outside

  • C4. Thinking about your NEIGHBORS, as a whole, during the following 3 time periods:
    1. How often do/did you see neighbors talking outside in the yard, on the street, at the corner park, etc.?
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Often
      • 2=Sometimes
      • 3=Rarely/Never
      • 88=Don’t Know
  c4a1 <- as.factor(d[,"c4a1"])
# Make "*" to NA
c4a1[which(c4a1=="*")]<-"NA"
  levels(c4a1) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4a1 <- ordered(c4a1, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4a1)
  new.d <- apply_labels(new.d, c4a1 = "Talk outside-Current")
  temp.d <- data.frame (new.d, c4a1)  
  
  c4a2 <- as.factor(d[,"c4a2"])
# Make "*" to NA
c4a2[which(c4a2=="*")]<-"NA" 
  levels(c4a2) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4a2 <- ordered(c4a2, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4a2)
  new.d <- apply_labels(new.d, c4a2 = "Talk outside-age 31 up")
  temp.d <- data.frame (new.d, c4a2) 
  
  c4a3 <- as.factor(d[,"c4a3"])
  # Make "*" to NA
c4a3[which(c4a3=="*")]<-"NA"
  levels(c4a3) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4a3 <- ordered(c4a3, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4a3)
  new.d <- apply_labels(new.d, c4a3 = "Talk outside-Childhood or young")
  temp.d <- data.frame (new.d, c4a3)
  
  result<-questionr::freq(temp.d$c4a1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Often 109 45.2 46.8 45.2 46.8
Sometimes 100 41.5 42.9 86.7 89.7
Rarely_Never 21 8.7 9.0 95.4 98.7
Dont_know 3 1.2 1.3 96.7 100.0
NA 8 3.3 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c4a2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val% %cum val%cum
Often 97 40.2 43.5 40.2 43.5
Sometimes 103 42.7 46.2 83.0 89.7
Rarely_Never 17 7.1 7.6 90.0 97.3
Dont_know 6 2.5 2.7 92.5 100.0
NA 18 7.5 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c4a3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Often 129 53.5 60.0 53.5 60.0
Sometimes 59 24.5 27.4 78.0 87.4
Rarely_Never 11 4.6 5.1 82.6 92.6
Dont_know 16 6.6 7.4 89.2 100.0
NA 26 10.8 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C4B: Neighbors watch out for each other

  • C4. Thinking about your NEIGHBORS, as a whole, during the following 3 time periods:
    1. How often do/did neighbors watch out for each other, such as calling if they see a problem?
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Often
      • 2=Sometimes
      • 3=Rarely/Never
      • 88=Don’t Know
  c4b1 <- as.factor(d[,"c4b1"])
# Make "*" to NA
c4b1[which(c4b1=="*")]<-"NA"
  levels(c4b1) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4b1 <- ordered(c4b1, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4b1)
  new.d <- apply_labels(new.d, c4b1 = "watch out-Current")
  temp.d <- data.frame (new.d, c4b1)  
  
  c4b2 <- as.factor(d[,"c4b2"])
  # Make "*" to NA
c4b2[which(c4b2=="*")]<-"NA"
  levels(c4b2) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4b2 <- ordered(c4b2, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4b2)
  new.d <- apply_labels(new.d, c4b2 = "watch out-age 31 up")
  temp.d <- data.frame (new.d, c4b2) 
  
  c4b3 <- as.factor(d[,"c4b3"])
  # Make "*" to NA
c4b3[which(c4b3=="*")]<-"NA"
  levels(c4b3) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4b3 <- ordered(c4b3, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4b3)
  new.d <- apply_labels(new.d, c4b3 = "watch out-Childhood or young")
  temp.d <- data.frame (new.d, c4b3)
  
  result<-questionr::freq(temp.d$c4b1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Often 106 44.0 46.5 44.0 46.5
Sometimes 88 36.5 38.6 80.5 85.1
Rarely_Never 23 9.5 10.1 90.0 95.2
Dont_know 11 4.6 4.8 94.6 100.0
NA 13 5.4 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c4b2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val% %cum val%cum
Often 96 39.8 43.8 39.8 43.8
Sometimes 88 36.5 40.2 76.3 84.0
Rarely_Never 23 9.5 10.5 85.9 94.5
Dont_know 12 5.0 5.5 90.9 100.0
NA 22 9.1 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c4b3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Often 128 53.1 60.7 53.1 60.7
Sometimes 50 20.7 23.7 73.9 84.4
Rarely_Never 13 5.4 6.2 79.3 90.5
Dont_know 20 8.3 9.5 87.6 100.0
NA 30 12.4 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C4C: Neighbors know by name

  • C4. Thinking about your NEIGHBORS, as a whole, during the following 3 time periods:
    1. How many neighbors do/did you know by name?
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Often
      • 2=Sometimes
      • 3=Rarely/Never
      • 88=Don’t Know
  c4c1 <- as.factor(d[,"c4c1"])
# Make "*" to NA
c4c1[which(c4c1=="*")]<-"NA"
  levels(c4c1) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4c1 <- ordered(c4c1, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4c1)
  new.d <- apply_labels(new.d, c4c1 = "Know names-Current")
  temp.d <- data.frame (new.d, c4c1)  
  
  c4c2 <- as.factor(d[,"c4c2"])
# Make "*" to NA
c4c2[which(c4c2=="*")]<-"NA"
  levels(c4c2) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4c2 <- ordered(c4c2, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4c2)
  new.d <- apply_labels(new.d, c4c2 = "Know names-age 31 up")
  temp.d <- data.frame (new.d, c4c2) 
  
  c4c3 <- as.factor(d[,"c4c3"])
# Make "*" to NA
c4c3[which(c4c3=="*")]<-"NA"
  levels(c4c3) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4c3 <- ordered(c4c3, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4c3)
  new.d <- apply_labels(new.d, c4c3 = "Know names-Childhood or young")
  temp.d <- data.frame (new.d, c4c3)
  
  result<-questionr::freq(temp.d$c4c1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Often 67 27.8 29.6 27.8 29.6
Sometimes 104 43.2 46.0 71.0 75.7
Rarely_Never 52 21.6 23.0 92.5 98.7
Dont_know 3 1.2 1.3 93.8 100.0
NA 15 6.2 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c4c2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val% %cum val%cum
Often 78 32.4 36.4 32.4 36.4
Sometimes 85 35.3 39.7 67.6 76.2
Rarely_Never 45 18.7 21.0 86.3 97.2
Dont_know 6 2.5 2.8 88.8 100.0
NA 27 11.2 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c4c3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Often 121 50.2 59.0 50.2 59.0
Sometimes 46 19.1 22.4 69.3 81.5
Rarely_Never 27 11.2 13.2 80.5 94.6
Dont_know 11 4.6 5.4 85.1 100.0
NA 36 14.9 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C4D: Friendly talks with neighbors

  • C4. Thinking about your NEIGHBORS, as a whole, during the following 3 time periods:
    1. How many neighbors do/did you have a friendly talk with at least once a week?
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Often
      • 2=Sometimes
      • 3=Rarely/Never
      • 88=Don’t Know
  c4d1 <- as.factor(d[,"c4d1"])
# Make "*" to NA
c4d1[which(c4d1=="*")]<-"NA"
  levels(c4d1) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4d1 <- ordered(c4d1, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4d1)
  new.d <- apply_labels(new.d, c4d1 = "Know names-Current")
  temp.d <- data.frame (new.d, c4d1)  
  
  c4d2 <- as.factor(d[,"c4d2"])
# Make "*" to NA
c4d2[which(c4d2=="*")]<-"NA"
  levels(c4d2) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4d2 <- ordered(c4d2, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4d2)
  new.d <- apply_labels(new.d, c4d2 = "Know names-age 31 up")
  temp.d <- data.frame (new.d, c4d2) 
  
  c4d3 <- as.factor(d[,"c4d3"])
  # Make "*" to NA
c4d3[which(c4d3=="*")]<-"NA"
  levels(c4d3) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4d3 <- ordered(c4d3, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4d3)
  new.d <- apply_labels(new.d, c4d3 = "Know names-Childhood or young")
  temp.d <- data.frame (new.d, c4d3)
  
  result<-questionr::freq(temp.d$c4d1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Often 33 13.7 14.5 13.7 14.5
Sometimes 98 40.7 43.2 54.4 57.7
Rarely_Never 91 37.8 40.1 92.1 97.8
Dont_know 5 2.1 2.2 94.2 100.0
NA 14 5.8 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c4d2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val% %cum val%cum
Often 41 17.0 19.0 17.0 19.0
Sometimes 112 46.5 51.9 63.5 70.8
Rarely_Never 54 22.4 25.0 85.9 95.8
Dont_know 9 3.7 4.2 89.6 100.0
NA 25 10.4 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c4d3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Often 86 35.7 41.1 35.7 41.1
Sometimes 65 27.0 31.1 62.7 72.2
Rarely_Never 39 16.2 18.7 78.8 90.9
Dont_know 19 7.9 9.1 86.7 100.0
NA 32 13.3 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

C4E: Ask neighbors for help

  • C4. Thinking about your NEIGHBORS, as a whole, during the following 3 time periods:
    1. How many neighbors could you ask for help, such as to “borrow a cup of sugar” or some other small favor?
      1. Current (from prostate cancer diagnosis to present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Often
      • 2=Sometimes
      • 3=Rarely/Never
      • 88=Don’t Know
  c4e1 <- as.factor(d[,"c4e1"])
# Make "*" to NA
c4e1[which(c4e1=="*")]<-"NA"
  levels(c4e1) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4e1 <- ordered(c4e1, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4e1)
  new.d <- apply_labels(new.d, c4e1 = "ask for help-Current")
  temp.d <- data.frame (new.d, c4e1)  
  
  c4e2 <- as.factor(d[,"c4e2"])
# Make "*" to NA
c4e2[which(c4e2=="*")]<-"NA"
  levels(c4e2) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4e2 <- ordered(c4e2, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4e2)
  new.d <- apply_labels(new.d, c4e2 = "ask for help-age 31 up")
  temp.d <- data.frame (new.d, c4e2) 
  
  c4e3 <- as.factor(d[,"c4e3"])
  # Make "*" to NA
c4e3[which(c4e3=="*")]<-"NA"
  levels(c4e3) <- list(Often="1",
                     Sometimes="2",
                     Rarely_Never="3",
                     Dont_know="88")
  c4e3 <- ordered(c4e3, c("Often", "Sometimes", "Rarely_Never", "Dont_know"))
  
  new.d <- data.frame(new.d, c4e3)
  new.d <- apply_labels(new.d, c4e3 = "ask for help-Childhood or young")
  temp.d <- data.frame (new.d, c4e3)
  
  result<-questionr::freq(temp.d$c4e1, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "1. Current (from prostate cancer diagnosis to present)")
1. Current (from prostate cancer diagnosis to present)
n % val% %cum val%cum
Often 34 14.1 15.3 14.1 15.3
Sometimes 86 35.7 38.7 49.8 54.1
Rarely_Never 78 32.4 35.1 82.2 89.2
Dont_know 24 10.0 10.8 92.1 100.0
NA 19 7.9 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c4e2, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val% %cum val%cum
Often 36 14.9 17.1 14.9 17.1
Sometimes 82 34.0 38.9 49.0 55.9
Rarely_Never 71 29.5 33.6 78.4 89.6
Dont_know 22 9.1 10.4 87.6 100.0
NA 30 12.4 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  result<-questionr::freq(temp.d$c4e3, cum = TRUE ,total = TRUE)
  kable(result, format = "simple", align = 'l',caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val% %cum val%cum
Often 75 31.1 36.9 31.1 36.9
Sometimes 65 27.0 32.0 58.1 69.0
Rarely_Never 39 16.2 19.2 74.3 88.2
Dont_know 24 10.0 11.8 84.2 100.0
NA 38 15.8 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

D1: Treat you because of your race/ethnicity

  • D1. In the following questions, we are interested in your perceptions about the way other people have treated you because of your race/ethnicity or skin color.
      1. At any time in your life, have you ever been unfairly fired from a job or been unfairly denied a promotion?
      1. For unfair reasons, have you ever not been hired for a job?
      1. Have you ever been unfairly stopped, searched, questioned, physically threatened or abused by the police?
      1. Have you ever been unfairly discouraged by a teacher or advisor from continuing your education?
      1. Have you ever been unfairly prevented from moving into a neighborhood because the landlord or a realtor refused to sell or rent you a house or apartment?
      1. Have you ever been unfairly denied a bank loan?
      1. Have you ever been unfairly treated when getting medical care?
      • 1=No
      • 2=Yes
    • If yes, How stressful was this experience?
      • 1=Not at all
      • 2=A little
      • 3=Somewhat
      • 4=Extremely
# a. At any time in your life, have you ever been unfairly fired from a job or been unfairly denied a promotion?
  d1aa <- as.factor(d[,"d1aa"])
# Make "*" to NA
d1aa[which(d1aa=="*")]<-"NA"
  levels(d1aa) <- list(No="1",
                     Yes="2")
  d1aa <- ordered(d1aa, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1aa)
  new.d <- apply_labels(new.d, d1aa = "fired or denied a promotion")
  temp.d <- data.frame (new.d, d1aa)  
  
  d1ab <- as.factor(d[,"d1ab"])
# Make "*" to NA
d1ab[which(d1ab=="*")]<-"NA" 
  levels(d1ab) <- list(Not_at_all="1",
                     A_little="2",
                     Somewhat="3",
                     Extremely="4")
  d1ab <- ordered(d1ab, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1ab)
  new.d <- apply_labels(new.d, d1ab = "fired or denied a promotion-stressful")
  temp.d <- data.frame (new.d, d1ab)
  
  result<-questionr::freq(temp.d$d1aa,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "a. At any time in your life, have you ever been unfairly fired from a job or been unfairly denied a promotion?
")
a. At any time in your life, have you ever been unfairly fired from a job or been unfairly denied a promotion?
n % val%
No 136 56.4 59.9
Yes 91 37.8 40.1
NA 14 5.8 NA
Total 241 100.0 100.0 
  result<-questionr::freq(temp.d$d1ab,total = TRUE,cum=TRUE)
  kable(result, format = "simple", align = 'l', caption = "a. If yes, How stressful was this experience?")
a. If yes, How stressful was this experience?
n % val% %cum val%cum
No 0 0 NaN 0 NaN
Yes 0 0 NaN 0 NaN
NA 241 100 NA 100 NA
Total 241 100 100 100 100 
# b. For unfair reasons, have you ever not been hired for a job?
  d1ba <- as.factor(d[,"d1ba"])
  # Make "*" to NA
d1ba[which(d1ba=="*")]<-"NA"
  levels(d1ba) <- list(No="1",
                     Yes="2")
  d1ba <- ordered(d1ba, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1ba)
  new.d <- apply_labels(new.d, d1ba = "not be hired")
  temp.d <- data.frame (new.d, d1ba)  
  
  d1bb <- as.factor(d[,"d1bb"])
  # Make "*" to NA
d1bb[which(d1bb=="*")]<-"NA"
  levels(d1bb) <- list(Not_at_all="1",
                     A_little="2",
                     Somewhat="3",
                     Extremely="4")
  d1bb <- ordered(d1bb, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1bb)
  new.d <- apply_labels(new.d, d1bb = "not be hired-stressful")
  temp.d <- data.frame (new.d, d1bb)
  
  result<-questionr::freq(temp.d$d1ba,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "b. For unfair reasons, have you ever not been hired for a job?")
b. For unfair reasons, have you ever not been hired for a job?
n % val%
No 143 59.3 65.3
Yes 76 31.5 34.7
NA 22 9.1 NA
Total 241 100.0 100.0 
  result<-questionr::freq(temp.d$d1bb,total = TRUE,cum=TRUE)
  kable(result, format = "simple", align = 'l', caption = "b. If yes, How stressful was this experience?")
b. If yes, How stressful was this experience?
n % val% %cum val%cum
No 0 0 NaN 0 NaN
Yes 0 0 NaN 0 NaN
NA 241 100 NA 100 NA
Total 241 100 100 100 100 
# c. Have you ever been unfairly stopped, searched, questioned, physically threatened or abused by the police?
  d1ca <- as.factor(d[,"d1ca"])
  # Make "*" to NA
d1ca[which(d1ca=="*")]<-"NA"
  levels(d1ca) <- list(No="1",
                     Yes="2")
  d1ca <- ordered(d1ca, c( "No","Yes"))
  
  new.d <- data.frame(new.d, d1ca)
  new.d <- apply_labels(new.d, d1ca = "By police")
  temp.d <- data.frame (new.d, d1ca)  
  
  result<-questionr::freq(temp.d$d1ca,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "c. Have you ever been unfairly stopped, searched, questioned, physically threatened or abused by the police?")
c. Have you ever been unfairly stopped, searched, questioned, physically threatened or abused by the police?
n % val%
No 90 37.3 40.7
Yes 131 54.4 59.3
NA 20 8.3 NA
Total 241 100.0 100.0 
  d1cb <- as.factor(d[,"d1cb"])
  # Make "*" to NA
d1cb[which(d1cb=="*")]<-"NA"
  levels(d1cb) <- list(Not_at_all="1",
                     A_little="2",
                     Somewhat="3",
                     Extremely="4")
  d1cb <- ordered(d1cb, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1cb)
  new.d <- apply_labels(new.d, d1cb = "By police-stressful")
  temp.d <- data.frame (new.d, d1cb)
  result<-questionr::freq(temp.d$d1cb,total = TRUE,cum=TRUE)
  kable(result, format = "simple", align = 'l', caption = "c. If yes, How stressful was this experience?")
c. If yes, How stressful was this experience?
n % val% %cum val%cum
No 0 0 NaN 0 NaN
Yes 0 0 NaN 0 NaN
NA 241 100 NA 100 NA
Total 241 100 100 100 100 
# d. Have you ever been unfairly discouraged by a teacher or advisor from continuing your education?
  d1da <- as.factor(d[,"d1da"])
  # Make "*" to NA
d1da[which(d1da=="*")]<-"NA"
  levels(d1da) <- list(No="1",
                     Yes="2")
  d1da <- ordered(d1da, c( "No","Yes"))
  
  new.d <- data.frame(new.d, d1da)
  new.d <- apply_labels(new.d, d1da = "unfair education")
  temp.d <- data.frame (new.d, d1da)  
  
  result<-questionr::freq(temp.d$d1da,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "d. Have you ever been unfairly discouraged by a teacher or advisor from continuing your education?")
d. Have you ever been unfairly discouraged by a teacher or advisor from continuing your education?
n % val%
No 171 71.0 76.7
Yes 52 21.6 23.3
NA 18 7.5 NA
Total 241 100.0 100.0 
  d1db <- as.factor(d[,"d1db"])
  # Make "*" to NA
d1db[which(d1db=="*")]<-"NA"
  levels(d1db) <- list(Not_at_all="1",
                     A_little="2",
                     Somewhat="3",
                     Extremely="4")
  d1db <- ordered(d1db, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1db)
  new.d <- apply_labels(new.d, d1db = "unfair education-stressful")
  temp.d <- data.frame (new.d, d1db)
  result<-questionr::freq(temp.d$d1db,total = TRUE,cum=TRUE)
  kable(result, format = "simple", align = 'l', caption = "d. If yes, How stressful was this experience?")
d. If yes, How stressful was this experience?
n % val% %cum val%cum
No 0 0 NaN 0 NaN
Yes 0 0 NaN 0 NaN
NA 241 100 NA 100 NA
Total 241 100 100 100 100 
# e. Have you ever been unfairly prevented from moving into a neighborhood because the landlord or a realtor refused to sell or rent you a house or apartment?
  d1ea <- as.factor(d[,"d1ea"])
  # Make "*" to NA
d1ea[which(d1ea=="*")]<-"NA"
  levels(d1ea) <- list(No="1",
                     Yes="2")
  d1ea <- ordered(d1ea, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1ea)
  new.d <- apply_labels(new.d, d1ea = "refuse to sell or rent")
  temp.d <- data.frame (new.d, d1ea)  
  
  result<-questionr::freq(temp.d$d1ea,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e. Have you ever been unfairly prevented from moving into a neighborhood because the landlord or a realtor refused to sell or rent you a house or apartment?")
e. Have you ever been unfairly prevented from moving into a neighborhood because the landlord or a realtor refused to sell or rent you a house or apartment?
n % val%
No 195 80.9 85.9
Yes 32 13.3 14.1
NA 14 5.8 NA
Total 241 100.0 100.0 
  d1eb <- as.factor(d[,"d1eb"])
  # Make "*" to NA
d1eb[which(d1eb=="*")]<-"NA"
  levels(d1eb) <- list(Not_at_all="1",
                     A_little="2",
                     Somewhat="3",
                     Extremely="4")
  d1eb <- ordered(d1eb, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1eb)
  new.d <- apply_labels(new.d, d1eb = "refuse to sell or rent-stressful")
  temp.d <- data.frame (new.d, d1eb)
  result<-questionr::freq(temp.d$d1eb,total = TRUE,cum=TRUE)
  kable(result, format = "simple", align = 'l', caption = "e. If yes, How stressful was this experience?")
e. If yes, How stressful was this experience?
n % val% %cum val%cum
No 0 0 NaN 0 NaN
Yes 0 0 NaN 0 NaN
NA 241 100 NA 100 NA
Total 241 100 100 100 100 
# f.   Have   you   ever   been   unfairly denied a bank loan?
  d1fa <- as.factor(d[,"d1fa"])
  # Make "*" to NA
d1fa[which(d1fa=="*")]<-"NA"
  levels(d1fa) <- list(No="1",
                     Yes="2")
  d1fa <- ordered(d1fa, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1fa)
  new.d <- apply_labels(new.d, d1fa = "Bank loan")
  temp.d <- data.frame (new.d, d1fa)  
  
  result<-questionr::freq(temp.d$d1fa,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "f. Have you ever been unfairly denied a bank loan?")
f. Have you ever been unfairly denied a bank loan?
n % val%
No 159 66.0 71.9
Yes 62 25.7 28.1
NA 20 8.3 NA
Total 241 100.0 100.0 
  d1fb <- as.factor(d[,"d1fb"])
  # Make "*" to NA
d1fb[which(d1fb=="*")]<-"NA"
  levels(d1fb) <- list(Not_at_all="1",
                     A_little="2",
                     Somewhat="3",
                     Extremely="4")
  d1fb <- ordered(d1fb, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1fb)
  new.d <- apply_labels(new.d, d1fb = "Bank loan-stressful")
  temp.d <- data.frame (new.d, d1fb)
  result<-questionr::freq(temp.d$d1fb,total = TRUE,cum=TRUE)
  kable(result, format = "simple", align = 'l', caption = "f. If yes, How stressful was this experience?")
f. If yes, How stressful was this experience?
n % val% %cum val%cum
No 0 0 NaN 0 NaN
Yes 0 0 NaN 0 NaN
NA 241 100 NA 100 NA
Total 241 100 100 100 100 
# g.   Have   you   ever   been   unfairly treated when getting medical care?
  d1ga <- as.factor(d[,"d1ga"])
  # Make "*" to NA
d1ga[which(d1ga=="*")]<-"NA"
  levels(d1ga) <- list(No="1",
                     Yes="2")
  d1ga <- ordered(d1ga, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1ga)
  new.d <- apply_labels(new.d, d1ga = "unfair medical care")
  temp.d <- data.frame (new.d, d1ga)  
  
  result<-questionr::freq(temp.d$d1ga,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "g. Have you ever been unfairly treated when getting medical care?")
g. Have you ever been unfairly treated when getting medical care?
n % val%
No 191 79.3 85.7
Yes 32 13.3 14.3
NA 18 7.5 NA
Total 241 100.0 100.0 
  d1gb <- as.factor(d[,"d1gb"])
  # Make "*" to NA
d1gb[which(d1gb=="*")]<-"NA"
  levels(d1gb) <- list(Not_at_all="1",
                     A_little="2",
                     Somewhat="3",
                     Extremely="4")
  d1gb <- ordered(d1gb, c("No","Yes"))
  
  new.d <- data.frame(new.d, d1gb)
  new.d <- apply_labels(new.d, d1gb = "unfair medical care-stressful")
  temp.d <- data.frame (new.d, d1gb)
  result<-questionr::freq(temp.d$d1gb,total = TRUE,cum=TRUE)
  kable(result, format = "simple", align = 'l', caption = "g. If yes, How stressful was this experience?")
g. If yes, How stressful was this experience?
n % val% %cum val%cum
No 0 0 NaN 0 NaN
Yes 0 0 NaN 0 NaN
NA 241 100 NA 100 NA
Total 241 100 100 100 100

D2: Medical Mistrust

  • D2. These next questions are about your current feelings or perceptions regarding healthcare organizations (places where you might get healthcare, like a hospital or clinic). Indicate your level of agreement or disagreement with each statement.
# a. Patients have sometimes been deceived or misled at hospitals.
  d2a <- as.factor(d[,"d2a"])
# Make "*" to NA
d2a[which(d2a=="*")]<-"NA"
  levels(d2a) <- list(Strongly_Agree="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d2a <- ordered(d2a, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d2a)
  new.d <- apply_labels(new.d, d2a = "deceived or misled")
  temp.d <- data.frame (new.d, d2a)  
  
  result<-questionr::freq(temp.d$d2a,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "a. Patients have sometimes been deceived or misled at hospitals.")
a. Patients have sometimes been deceived or misled at hospitals.
n % val%
Strongly_Agree 25 10.4 11.0
Somewhat_Agree 92 38.2 40.5
Somewhat_Disagree 57 23.7 25.1
Strongly_Disagree 53 22.0 23.3
NA 14 5.8 NA
Total 241 100.0 100.0 
# b. Hospitals often want to know more about your personal affairs or business than they really need to know.
  d2b <- as.factor(d[,"d2b"])
# Make "*" to NA
d2b[which(d2b=="*")]<-"NA"
  levels(d2b) <- list(Strongly_Agree="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d2b <- ordered(d2b, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d2b)
  new.d <- apply_labels(new.d, d2b = "personal affairs")
  temp.d <- data.frame (new.d, d2b)  
  
  result<-questionr::freq(temp.d$d2b,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "b. Hospitals often want to know more about your personal affairs or business than they really need to know.")
b. Hospitals often want to know more about your personal affairs or business than they really need to know.
n % val%
Strongly_Agree 21 8.7 9.3
Somewhat_Agree 89 36.9 39.4
Somewhat_Disagree 56 23.2 24.8
Strongly_Disagree 60 24.9 26.5
NA 15 6.2 NA
Total 241 100.0 100.0 
# c. Hospitals have sometimes done harmful experiments on patients without their knowledge.
  d2c <- as.factor(d[,"d2c"])
# Make "*" to NA
d2c[which(d2c=="*")]<-"NA"
  levels(d2c) <- list(Strongly_Agree="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d2c <- ordered(d2c, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d2c)
  new.d <- apply_labels(new.d, d2c = "harmful experiments")
  temp.d <- data.frame (new.d, d2c)  
  
  result<-questionr::freq(temp.d$d2c,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "c. Hospitals have sometimes done harmful experiments on patients without their knowledge.")
c. Hospitals have sometimes done harmful experiments on patients without their knowledge.
n % val%
Strongly_Agree 37 15.4 17.1
Somewhat_Agree 63 26.1 29.0
Somewhat_Disagree 62 25.7 28.6
Strongly_Disagree 55 22.8 25.3
NA 24 10.0 NA
Total 241 100.0 100.0 
# d. Rich patients receive better care at hospitals than poor patients.
  d2d <- as.factor(d[,"d2d"])
# Make "*" to NA
d2d[which(d2d=="*")]<-"NA"
  levels(d2d) <- list(Strongly_Agree="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d2d <- ordered(d2d, c( "Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d2d)
  new.d <- apply_labels(new.d, d2d = "Rich patients better care")
  temp.d <- data.frame (new.d, d2d)  
  
  result<-questionr::freq(temp.d$d2d,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "d. Rich patients receive better care at hospitals than poor patients.")
d. Rich patients receive better care at hospitals than poor patients.
n % val%
Strongly_Agree 110 45.6 48.9
Somewhat_Agree 56 23.2 24.9
Somewhat_Disagree 32 13.3 14.2
Strongly_Disagree 27 11.2 12.0
NA 16 6.6 NA
Total 241 100.0 100.0 
# e. Male patients receive better care at hospitals than female patients.
  d2e <- as.factor(d[,"d2e"])
# Make "*" to NA
d2e[which(d2e=="*")]<-"NA"
  levels(d2e) <- list(Strongly_Agree="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d2e <- ordered(d2e, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d2e)
  new.d <- apply_labels(new.d, d2e = "Male patients better care")
  temp.d <- data.frame (new.d, d2e)  
  
  result<-questionr::freq(temp.d$d2e,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e. Male patients receive better care at hospitals than female patients.")
e. Male patients receive better care at hospitals than female patients.
n % val%
Strongly_Agree 10 4.1 4.6
Somewhat_Agree 33 13.7 15.1
Somewhat_Disagree 87 36.1 39.9
Strongly_Disagree 88 36.5 40.4
NA 23 9.5 NA
Total 241 100.0 100.0

D3A: Treated with less respect

  • D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
    1. You have been treated with less respect than other people
      1. Current (from prostate cancer diagnosis to the present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Never
      • 2=Rarely
      • 3=Sometimes
      • 4=Often
# 1
  d3a1 <- as.factor(d[,"d3a1"])
# Make "*" to NA
d3a1[which(d3a1=="*")]<-"NA"
  levels(d3a1) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3a1 <- ordered(d3a1, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3a1)
  new.d <- apply_labels(new.d, d3a1 = "less respect-current")
  temp.d <- data.frame (new.d, d3a1)  
  
  result<-questionr::freq(temp.d$d3a1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
n % val%
Never 77 32.0 32.5
Rarely 85 35.3 35.9
Sometimes 61 25.3 25.7
Often 14 5.8 5.9
NA 4 1.7 NA
Total 241 100.0 100.0 
#2
  d3a2 <- as.factor(d[,"d3a2"])
# Make "*" to NA
d3a2[which(d3a2=="*")]<-"NA"
  levels(d3a2) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3a2 <- ordered(d3a2, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3a2)
  new.d <- apply_labels(new.d, d3a2 = "less respect-31 up")
  temp.d <- data.frame (new.d, d3a2)  
  
  result<-questionr::freq(temp.d$d3a2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val%
Never 55 22.8 25.1
Rarely 81 33.6 37.0
Sometimes 66 27.4 30.1
Often 17 7.1 7.8
NA 22 9.1 NA
Total 241 100.0 100.0 
#3
  d3a3 <- as.factor(d[,"d3a3"])
  # Make "*" to NA
d3a3[which(d3a3=="*")]<-"NA"
  levels(d3a3) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3a3 <- ordered(d3a3, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3a3)
  new.d <- apply_labels(new.d, d3a3 = "less respect-child or young")
  temp.d <- data.frame (new.d, d3a3)  
  
  result<-questionr::freq(temp.d$d3a3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val%
Never 59 24.5 27.2
Rarely 57 23.7 26.3
Sometimes 74 30.7 34.1
Often 27 11.2 12.4
NA 24 10.0 NA
Total 241 100.0 100.0

D3B: Received poorer service

  • D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
    1. You have received poorer service than other people at restaurants or stores
      1. Current (from prostate cancer diagnosis to the present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Never
      • 2=Rarely
      • 3=Sometimes
      • 4=Often
# 1
  d3b1 <- as.factor(d[,"d3b1"])
# Make "*" to NA
d3b1[which(d3b1=="*")]<-"NA"
  levels(d3b1) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3b1 <- ordered(d3b1, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3b1)
  new.d <- apply_labels(new.d, d3b1 = "poorer service-current")
  temp.d <- data.frame (new.d, d3b1)  
  
  result<-questionr::freq(temp.d$d3b1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
n % val%
Never 63 26.1 26.7
Rarely 86 35.7 36.4
Sometimes 72 29.9 30.5
Often 15 6.2 6.4
NA 5 2.1 NA
Total 241 100.0 100.0 
#2
  d3b2 <- as.factor(d[,"d3b2"])
  # Make "*" to NA
d3b2[which(d3b2=="*")]<-"NA"
  levels(d3b2) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3b2 <- ordered(d3b2, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3b2)
  new.d <- apply_labels(new.d, d3b2 = "poorer service-31 up")
  temp.d <- data.frame (new.d, d3b2)  
  
  result<-questionr::freq(temp.d$d3b2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val%
Never 49 20.3 22.3
Rarely 74 30.7 33.6
Sometimes 82 34.0 37.3
Often 15 6.2 6.8
NA 21 8.7 NA
Total 241 100.0 100.0 
#3
  d3b3 <- as.factor(d[,"d3b3"])
  # Make "*" to NA
d3b3[which(d3b3=="*")]<-"NA"
  levels(d3b3) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3b3 <- ordered(d3b3, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3b3)
  new.d <- apply_labels(new.d, d3b3 = "poorer service-child or young")
  temp.d <- data.frame (new.d, d3b3)  
  
  result<-questionr::freq(temp.d$d3b3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val%
Never 49 20.3 22.7
Rarely 57 23.7 26.4
Sometimes 83 34.4 38.4
Often 27 11.2 12.5
NA 25 10.4 NA
Total 241 100.0 100.0

D3C: Think you are not smart

  • D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
    1. People have acted as if they think you are not smart
      1. Current (from prostate cancer diagnosis to the present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Never
      • 2=Rarely
      • 3=Sometimes
      • 4=Often
# 1
  d3c1 <- as.factor(d[,"d3c1"])
# Make "*" to NA
d3c1[which(d3c1=="*")]<-"NA"
  levels(d3c1) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3c1 <- ordered(d3c1, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3c1)
  new.d <- apply_labels(new.d, d3c1 = "think you are not smart-current")
  temp.d <- data.frame (new.d, d3c1)  
  
  result<-questionr::freq(temp.d$d3c1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
n % val%
Never 77 32.0 33.5
Rarely 69 28.6 30.0
Sometimes 69 28.6 30.0
Often 15 6.2 6.5
NA 11 4.6 NA
Total 241 100.0 100.0 
#2
  d3c2 <- as.factor(d[,"d3c2"])
# Make "*" to NA
d3c2[which(d3c2=="*")]<-"NA"
  levels(d3c2) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3c2 <- ordered(d3c2, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3c2)
  new.d <- apply_labels(new.d, d3c2 = "think you are not smart-31 up")
  temp.d <- data.frame (new.d, d3c2)  
  
  result<-questionr::freq(temp.d$d3c2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val%
Never 66 27.4 30.1
Rarely 69 28.6 31.5
Sometimes 66 27.4 30.1
Often 18 7.5 8.2
NA 22 9.1 NA
Total 241 100.0 100.0 
#3
  d3c3 <- as.factor(d[,"d3c3"])
  # Make "*" to NA
d3c3[which(d3c3=="*")]<-"NA"
  levels(d3c3) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3c3 <- ordered(d3c3, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3c3)
  new.d <- apply_labels(new.d, d3c3 = "think you are not smart-child or young")
  temp.d <- data.frame (new.d, d3c3)  
  
  result<-questionr::freq(temp.d$d3c3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val%
Never 61 25.3 28.5
Rarely 60 24.9 28.0
Sometimes 70 29.0 32.7
Often 23 9.5 10.7
NA 27 11.2 NA
Total 241 100.0 100.0

D3D: Be afraid of you

  • D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
    1. People have acted as if they are afraid of you
      1. Current (from prostate cancer diagnosis to the present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Never
      • 2=Rarely
      • 3=Sometimes
      • 4=Often
# 1
  d3d1 <- as.factor(d[,"d3d1"])
# Make "*" to NA
d3d1[which(d3d1=="*")]<-"NA"
  levels(d3d1) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3d1 <- ordered(d3d1, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3d1)
  new.d <- apply_labels(new.d, d3d1 = "be afraid of you-current")
  temp.d <- data.frame (new.d, d3d1)  
  
  result<-questionr::freq(temp.d$d3d1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
n % val%
Never 91 37.8 39.4
Rarely 65 27.0 28.1
Sometimes 60 24.9 26.0
Often 15 6.2 6.5
NA 10 4.1 NA
Total 241 100.0 100.0 
#2
  d3d2 <- as.factor(d[,"d3d2"])
  # Make "*" to NA
d3d2[which(d3d2=="*")]<-"NA"
  levels(d3d2) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3d2 <- ordered(d3d2, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3d2)
  new.d <- apply_labels(new.d, d3d2 = "be afraid of you-31 up")
  temp.d <- data.frame (new.d, d3d2)  
  
  result<-questionr::freq(temp.d$d3d2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val%
Never 75 31.1 34.2
Rarely 56 23.2 25.6
Sometimes 68 28.2 31.1
Often 20 8.3 9.1
NA 22 9.1 NA
Total 241 100.0 100.0 
#3
  d3d3 <- as.factor(d[,"d3d3"])
  # Make "*" to NA
d3d3[which(d3d3=="*")]<-"NA"
  levels(d3d3) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3d3 <- ordered(d3d3, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3d3)
  new.d <- apply_labels(new.d, d3d3 = "be afraid of you-child or young")
  temp.d <- data.frame (new.d, d3d3)  
  
  result<-questionr::freq(temp.d$d3d3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val%
Never 75 31.1 34.9
Rarely 52 21.6 24.2
Sometimes 63 26.1 29.3
Often 25 10.4 11.6
NA 26 10.8 NA
Total 241 100.0 100.0

D3E: Think you are dishonest

  • D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
    1. People have acted as if they think you are dishonest
      1. Current (from prostate cancer diagnosis to the present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Never
      • 2=Rarely
      • 3=Sometimes
      • 4=Often
# 1
  d3e1 <- as.factor(d[,"d3e1"])
# Make "*" to NA
d3e1[which(d3e1=="*")]<-"NA"
  levels(d3e1) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3e1 <- ordered(d3e1, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3e1)
  new.d <- apply_labels(new.d, d3e1 = "think you are dishonest-current")
  temp.d <- data.frame (new.d, d3e1)  
  
  result<-questionr::freq(temp.d$d3e1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
n % val%
Never 98 40.7 41.9
Rarely 72 29.9 30.8
Sometimes 49 20.3 20.9
Often 15 6.2 6.4
NA 7 2.9 NA
Total 241 100.0 100.0 
#2
  d3e2 <- as.factor(d[,"d3e2"])
  # Make "*" to NA
d3e2[which(d3e2=="*")]<-"NA"
  levels(d3e2) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3e2 <- ordered(d3e2, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3e2)
  new.d <- apply_labels(new.d, d3e2 = "think you are dishonest-31 up")
  temp.d <- data.frame (new.d, d3e2)  
  
  result<-questionr::freq(temp.d$d3e2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val%
Never 83 34.4 37.9
Rarely 63 26.1 28.8
Sometimes 59 24.5 26.9
Often 14 5.8 6.4
NA 22 9.1 NA
Total 241 100.0 100.0 
#3
  d3e3 <- as.factor(d[,"d3e3"])
  # Make "*" to NA
d3e3[which(d3e3=="*")]<-"NA"
  levels(d3e3) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3e3 <- ordered(d3e3, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3e3)
  new.d <- apply_labels(new.d, d3e3 = "think you are dishonest-child or young")
  temp.d <- data.frame (new.d, d3e3)  
  
  result<-questionr::freq(temp.d$d3e3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val%
Never 77 32.0 35.8
Rarely 56 23.2 26.0
Sometimes 64 26.6 29.8
Often 18 7.5 8.4
NA 26 10.8 NA
Total 241 100.0 100.0

D3F: Better than you

  • D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
    1. People have acted as if they’re better than you are
      1. Current (from prostate cancer diagnosis to the present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Never
      • 2=Rarely
      • 3=Sometimes
      • 4=Often
# 1
  d3f1 <- as.factor(d[,"d3f1"])
# Make "*" to NA
d3f1[which(d3f1=="*")]<-"NA"
  levels(d3f1) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3f1 <- ordered(d3f1, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3f1)
  new.d <- apply_labels(new.d, d3f1 = "better than you-current")
  temp.d <- data.frame (new.d, d3f1)  
  
  result<-questionr::freq(temp.d$d3f1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
n % val%
Never 44 18.3 19.1
Rarely 58 24.1 25.2
Sometimes 102 42.3 44.3
Often 26 10.8 11.3
NA 11 4.6 NA
Total 241 100.0 100.0 
#2
  d3f2 <- as.factor(d[,"d3f2"])
  # Make "*" to NA
d3f2[which(d3f2=="*")]<-"NA"
  levels(d3f2) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3f2 <- ordered(d3f2, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3f2)
  new.d <- apply_labels(new.d, d3f2 = "better than you-31 up")
  temp.d <- data.frame (new.d, d3f2)  
  
  result<-questionr::freq(temp.d$d3f2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val%
Never 26 10.8 12.0
Rarely 60 24.9 27.6
Sometimes 104 43.2 47.9
Often 27 11.2 12.4
NA 24 10.0 NA
Total 241 100.0 100.0 
#3
  d3f3 <- as.factor(d[,"d3f3"])
# Make "*" to NA
d3f3[which(d3f3=="*")]<-"NA"
  levels(d3f3) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3f3 <- ordered(d3f3, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3f3)
  new.d <- apply_labels(new.d, d3f3 = "better than you-child or young")
  temp.d <- data.frame (new.d, d3f3)  
  
  result<-questionr::freq(temp.d$d3f3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val%
Never 32 13.3 15.0
Rarely 52 21.6 24.4
Sometimes 87 36.1 40.8
Often 42 17.4 19.7
NA 28 11.6 NA
Total 241 100.0 100.0

D3G: Insulted

  • D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
    1. You have been called names or insulted
      1. Current (from prostate cancer diagnosis to the present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Never
      • 2=Rarely
      • 3=Sometimes
      • 4=Often
# 1
  d3g1 <- as.factor(d[,"d3g1"])
# Make "*" to NA
d3g1[which(d3g1=="*")]<-"NA"
  levels(d3g1) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3g1 <- ordered(d3g1, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3g1)
  new.d <- apply_labels(new.d, d3g1 = "called names or insulted-current")
  temp.d <- data.frame (new.d, d3g1)  
  
  result<-questionr::freq(temp.d$d3g1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
n % val%
Never 83 34.4 35.3
Rarely 79 32.8 33.6
Sometimes 62 25.7 26.4
Often 11 4.6 4.7
NA 6 2.5 NA
Total 241 100.0 100.0 
#2
  d3g2 <- as.factor(d[,"d3g2"])
  # Make "*" to NA
d3g2[which(d3g2=="*")]<-"NA"
  levels(d3g2) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3g2 <- ordered(d3g2, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3g2)
  new.d <- apply_labels(new.d, d3g2 = "called names or insulted-31 up")
  temp.d <- data.frame (new.d, d3g2)  
  
  result<-questionr::freq(temp.d$d3g2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val%
Never 54 22.4 24.5
Rarely 80 33.2 36.4
Sometimes 75 31.1 34.1
Often 11 4.6 5.0
NA 21 8.7 NA
Total 241 100.0 100.0 
#3
  d3g3 <- as.factor(d[,"d3g3"])
  # Make "*" to NA
d3g3[which(d3g3=="*")]<-"NA"
  levels(d3g3) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3g3 <- ordered(d3g3, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3g3)
  new.d <- apply_labels(new.d, d3g3 = "called names or insulted-child or young")
  temp.d <- data.frame (new.d, d3g3)  
  
  result<-questionr::freq(temp.d$d3g3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val%
Never 42 17.4 19.4
Rarely 59 24.5 27.3
Sometimes 86 35.7 39.8
Often 29 12.0 13.4
NA 25 10.4 NA
Total 241 100.0 100.0

D3H: Threatened or harassed

  • D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
    1. You have been threatened or harassed
      1. Current (from prostate cancer diagnosis to the present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Never
      • 2=Rarely
      • 3=Sometimes
      • 4=Often
# 1
  d3h1 <- as.factor(d[,"d3h1"])
# Make "*" to NA
d3h1[which(d3h1=="*")]<-"NA"
  levels(d3h1) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3h1 <- ordered(d3h1, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3h1)
  new.d <- apply_labels(new.d, d3h1 = "threatened or harassed-current")
  temp.d <- data.frame (new.d, d3h1)  
  
  result<-questionr::freq(temp.d$d3h1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
n % val%
Never 121 50.2 52.8
Rarely 70 29.0 30.6
Sometimes 35 14.5 15.3
Often 3 1.2 1.3
NA 12 5.0 NA
Total 241 100.0 100.0 
#2
  d3h2 <- as.factor(d[,"d3h2"])
  # Make "*" to NA
d3h2[which(d3e1=="*")]<-"NA"
  levels(d3h2) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3h2 <- ordered(d3h2, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3h2)
  new.d <- apply_labels(new.d, d3h2 = "threatened or harassed-31 up")
  temp.d <- data.frame (new.d, d3h2)  
  
  result<-questionr::freq(temp.d$d3h2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val%
Never 92 38.2 42.6
Rarely 80 33.2 37.0
Sometimes 36 14.9 16.7
Often 8 3.3 3.7
NA 25 10.4 NA
Total 241 100.0 100.0 
#3
  d3h3 <- as.factor(d[,"d3h3"])
  # Make "*" to NA
d3h3[which(d3h3=="*")]<-"NA"
  levels(d3h3) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3h3 <- ordered(d3h3, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3h3)
  new.d <- apply_labels(new.d, d3h3 = "threatened or harassed-child or young")
  temp.d <- data.frame (new.d, d3h3)  
  
  result<-questionr::freq(temp.d$d3h3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val%
Never 74 30.7 34.7
Rarely 66 27.4 31.0
Sometimes 59 24.5 27.7
Often 14 5.8 6.6
NA 28 11.6 NA
Total 241 100.0 100.0

D3I: Followed around in stores

  • D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
    1. You have been followed around in stores
      1. Current (from prostate cancer diagnosis to the present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Never
      • 2=Rarely
      • 3=Sometimes
      • 4=Often
# 1
  d3i1 <- as.factor(d[,"d3i1"])
# Make "*" to NA
d3i1[which(d3e1=="*")]<-"NA"
  levels(d3i1) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3i1 <- ordered(d3i1, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3i1)
  new.d <- apply_labels(new.d, d3i1 = "be followed-current")
  temp.d <- data.frame (new.d, d3i1)  
  
  result<-questionr::freq(temp.d$d3i1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
n % val%
Never 86 35.7 36.8
Rarely 70 29.0 29.9
Sometimes 59 24.5 25.2
Often 19 7.9 8.1
NA 7 2.9 NA
Total 241 100.0 100.0 
#2
  d3i2 <- as.factor(d[,"d3i2"])
  # Make "*" to NA
d3i1[which(d3i1=="*")]<-"NA"
  levels(d3i2) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3i2 <- ordered(d3i2, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3i2)
  new.d <- apply_labels(new.d, d3i2 = "be followed-31 up")
  temp.d <- data.frame (new.d, d3i2)  
  
  result<-questionr::freq(temp.d$d3i2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val%
Never 61 25.3 28.0
Rarely 64 26.6 29.4
Sometimes 73 30.3 33.5
Often 20 8.3 9.2
NA 23 9.5 NA
Total 241 100.0 100.0 
#3
  d3i3 <- as.factor(d[,"d3i3"])
  # Make "*" to NA
d3i1[which(d3i1=="*")]<-"NA"
  levels(d3i3) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3i3 <- ordered(d3i3, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3i3)
  new.d <- apply_labels(new.d, d3i3 = "be followed-child or young")
  temp.d <- data.frame (new.d, d3i3)  
  
  result<-questionr::freq(temp.d$d3i3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val%
Never 50 20.7 23.4
Rarely 51 21.2 23.8
Sometimes 73 30.3 34.1
Often 40 16.6 18.7
NA 27 11.2 NA
Total 241 100.0 100.0

D3J: How stressful

  • D3. In your day-to-day life, during the following 3 time periods, how often have any of the following things happened to you because of your race/ethnicity?
    1. How stressful has any of the above experience (a-i) of unfair treatment usually been for you?
      1. Current (from prostate cancer diagnosis to the present)
      1. Age 31 up to just before prostate cancer diagnosis
      1. Childhood or young adult life (up to age 30)
      • 1=Never
      • 2=Rarely
      • 3=Sometimes
      • 4=Often
# 1
  d3j1 <- as.factor(d[,"d3j1"])
# Make "*" to NA
d3j1[which(d3j1=="*")]<-"NA"
  levels(d3j1) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3j1 <- ordered(d3j1, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3j1)
  new.d <- apply_labels(new.d, d3j1 = "How stressful-current")
  temp.d <- data.frame (new.d, d3j1)  
  
  result<-questionr::freq(temp.d$d3j1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Current (from prostate cancer diagnosis to the present)")
1. Current (from prostate cancer diagnosis to the present)
n % val%
Never 107 44.4 45.9
Rarely 76 31.5 32.6
Sometimes 37 15.4 15.9
Often 13 5.4 5.6
NA 8 3.3 NA
Total 241 100.0 100.0 
#2
  d3j2 <- as.factor(d[,"d3j2"])
  # Make "*" to NA
d3j2[which(d3j2=="*")]<-"NA"
  levels(d3j2) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3j2 <- ordered(d3j2, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3j2)
  new.d <- apply_labels(new.d, d3j2 = "How stressful-31 up")
  temp.d <- data.frame (new.d, d3j2)  
  
  result<-questionr::freq(temp.d$d3j2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Age 31 up to just before prostate cancer diagnosis")
2. Age 31 up to just before prostate cancer diagnosis
n % val%
Never 82 34.0 37.3
Rarely 73 30.3 33.2
Sometimes 52 21.6 23.6
Often 13 5.4 5.9
NA 21 8.7 NA
Total 241 100.0 100.0 
#3
  d3j3 <- as.factor(d[,"d3j3"])
  # Make "*" to NA
d3j3[which(d3j3=="*")]<-"NA"
  levels(d3j3) <- list(Never="1",
                     Rarely="2",
                     Sometimes="3",
                     Often="4")
  d3j3 <- ordered(d3j3, c("Never","Rarely","Sometimes","Often"))
  
  new.d <- data.frame(new.d, d3j3)
  new.d <- apply_labels(new.d, d3j3 = "How stressful-child or young")
  temp.d <- data.frame (new.d, d3j3)  
  
  result<-questionr::freq(temp.d$d3j3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Childhood or young adult life (up to age 30)")
3. Childhood or young adult life (up to age 30)
n % val%
Never 75 31.1 34.9
Rarely 69 28.6 32.1
Sometimes 46 19.1 21.4
Often 25 10.4 11.6
NA 26 10.8 NA
Total 241 100.0 100.0

D4: How you currently see yourself

  • D4. These statements are about how you currently see yourself. Indicate your level of agreement or disagreement with each statement.
      1. You’ve always felt that you could make of your life pretty much what you wanted to make of it.
      1. Once you make up your mind to do something, you stay with it until the job is completely done.
      1. You like doing things that other people thought could not be done.
      1. When things don’t go the way you want them to, that just makes you work even harder.
      1. Sometimes, you feel that if anything is going to be done right, you have to do it yourself.
      1. It’s not always easy, but you manage to find a way to do the things you really need to get done.
      1. Very seldom have you been disappointed by the results of your hard work.
      1. You feel you are the kind of individual who stands up for what he believes in, regardless of the consequences.
      1. In the past, even when things got really tough, you never lost sight of your goals.
      1. It’s important for you to be able to do things the way you want to do them rather than the way other people want you to do them.
      1. You don’t let your personal feelings get in the way of doing a job.
      1. Hard work has really helped you to get ahead in life.
      • 1=Strongly Agree
      • 2=Somewhat Agree
      • 3=Somewhat Disagree
      • 4=Strongly Disagree
# a. You’ve always felt that you could make of your life pretty much what you wanted to make of it.
  d4a <- as.factor(d[,"d4a"])
# Make "*" to NA
d4a[which(d4a=="*")]<-"NA"
  levels(d4a) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4a <- ordered(d4a, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4a)
  new.d <- apply_labels(new.d, d4a = "make life")
  temp.d <- data.frame (new.d, d4a)  
  
  result<-questionr::freq(temp.d$d4a,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "a. You’ve always felt that you could make of your life pretty much what you wanted to make of it.")
a. You’ve always felt that you could make of your life pretty much what you wanted to make of it.
n % val% %cum val%cum
Strongly_Agree 108 44.8 45.6 44.8 45.6
Somewhat_Agree 98 40.7 41.4 85.5 86.9
Somewhat_Disagree 25 10.4 10.5 95.9 97.5
Strongly_Disagree 6 2.5 2.5 98.3 100.0
NA 4 1.7 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
# b. Once you make up your mind to do something, you stay with it until the job is completely done.
  d4b <- as.factor(d[,"d4b"])
  # Make "*" to NA
d4b[which(d4b=="*")]<-"NA"
  levels(d4b) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4b <- ordered(d4b, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4b)
  new.d <- apply_labels(new.d, d4b = "until job is done")
  temp.d <- data.frame (new.d, d4b)  
  
  result<-questionr::freq(temp.d$d4b,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "b. Once you make up your mind to do something, you stay with it until the job is completely done.")
b. Once you make up your mind to do something, you stay with it until the job is completely done.
n % val% %cum val%cum
Strongly_Agree 156 64.7 65.5 64.7 65.5
Somewhat_Agree 73 30.3 30.7 95.0 96.2
Somewhat_Disagree 8 3.3 3.4 98.3 99.6
Strongly_Disagree 1 0.4 0.4 98.8 100.0
NA 3 1.2 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
# c. You like doing things that other people thought could not be done.
  d4c <- as.factor(d[,"d4c"])
  # Make "*" to NA
d4c[which(d4c=="*")]<-"NA"
  levels(d4c) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4c <- ordered(d4c, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4c)
  new.d <- apply_labels(new.d, d4c = "until job is done")
  temp.d <- data.frame (new.d, d4c)  
  
  result<-questionr::freq(temp.d$d4c,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "c. You like doing things that other people thought could not be done.")
c. You like doing things that other people thought could not be done.
n % val% %cum val%cum
Strongly_Agree 107 44.4 45.9 44.4 45.9
Somewhat_Agree 94 39.0 40.3 83.4 86.3
Somewhat_Disagree 27 11.2 11.6 94.6 97.9
Strongly_Disagree 5 2.1 2.1 96.7 100.0
NA 8 3.3 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
# d. When things don’t go the way you want them to, that just makes you work even harder.
  d4d <- as.factor(d[,"d4d"])
  # Make "*" to NA
d4d[which(d4d=="*")]<-"NA"
  levels(d4d) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4d <- ordered(d4d, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4d)
  new.d <- apply_labels(new.d, d4d = "until job is done")
  temp.d <- data.frame (new.d, d4d)  
  
  result<-questionr::freq(temp.d$d4d,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "d. When things don’t go the way you want them to, that just makes you work even harder.")
d. When things don’t go the way you want them to, that just makes you work even harder.
n % val% %cum val%cum
Strongly_Agree 92 38.2 38.8 38.2 38.8
Somewhat_Agree 107 44.4 45.1 82.6 84.0
Somewhat_Disagree 32 13.3 13.5 95.9 97.5
Strongly_Disagree 6 2.5 2.5 98.3 100.0
NA 4 1.7 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
# e. Sometimes, you feel that if anything is going to be done right, you have to do it yourself.
  d4e <- as.factor(d[,"d4e"])
  # Make "*" to NA
d4e[which(d4e=="*")]<-"NA"
  levels(d4e) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4e <- ordered(d4e, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4e)
  new.d <- apply_labels(new.d, d4e = "do it yourself")
  temp.d <- data.frame (new.d, d4e)  
  
  result<-questionr::freq(temp.d$d4e,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e. Sometimes, you feel that if anything is going to be done right, you have to do it yourself.")
e. Sometimes, you feel that if anything is going to be done right, you have to do it yourself.
n % val% %cum val%cum
Strongly_Agree 94 39.0 39.8 39.0 39.8
Somewhat_Agree 95 39.4 40.3 78.4 80.1
Somewhat_Disagree 38 15.8 16.1 94.2 96.2
Strongly_Disagree 9 3.7 3.8 97.9 100.0
NA 5 2.1 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
# f. It’s not always easy, but you manage to find a way to do the things you really need to get done.
  d4f <- as.factor(d[,"d4f"])
  # Make "*" to NA
d4f[which(d4f=="*")]<-"NA"
  levels(d4f) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4f <- ordered(d4f, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4f)
  new.d <- apply_labels(new.d, d4f = "not easy but get it done")
  temp.d <- data.frame (new.d, d4f)  
  
  result<-questionr::freq(temp.d$d4f,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "f. It’s not always easy, but you manage to find a way to do the things you really need to get done.")
f. It’s not always easy, but you manage to find a way to do the things you really need to get done.
n % val% %cum val%cum
Strongly_Agree 143 59.3 59.8 59.3 59.8
Somewhat_Agree 87 36.1 36.4 95.4 96.2
Somewhat_Disagree 8 3.3 3.3 98.8 99.6
Strongly_Disagree 1 0.4 0.4 99.2 100.0
NA 2 0.8 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
# g. Very seldom have you been disappointed by the results of your hard work.
  d4g <- as.factor(d[,"d4g"])
  # Make "*" to NA
d4g[which(d4g=="*")]<-"NA"
  levels(d4g) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4g <- ordered(d4g, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4g)
  new.d <- apply_labels(new.d, d4g = "seldom disappointed")
  temp.d <- data.frame (new.d, d4g)  
  
  result<-questionr::freq(temp.d$d4g,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "g. Very seldom have you been disappointed by the results of your hard work.")
g. Very seldom have you been disappointed by the results of your hard work.
n % val% %cum val%cum
Strongly_Agree 91 37.8 38.2 37.8 38.2
Somewhat_Agree 105 43.6 44.1 81.3 82.4
Somewhat_Disagree 33 13.7 13.9 95.0 96.2
Strongly_Disagree 9 3.7 3.8 98.8 100.0
NA 3 1.2 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
# h. You feel you are the kind of individual who stands up for what he believes in, regardless of the consequences.
  d4h <- as.factor(d[,"d4h"])
  # Make "*" to NA
d4h[which(d4h=="*")]<-"NA"
  levels(d4h) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4h <- ordered(d4h, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4h)
  new.d <- apply_labels(new.d, d4h = "stand up for believes")
  temp.d <- data.frame (new.d, d4h)  
  
  result<-questionr::freq(temp.d$d4h,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "h. You feel you are the kind of individual who stands up for what he believes in, regardless of the consequences.")
h. You feel you are the kind of individual who stands up for what he believes in, regardless of the consequences.
n % val% %cum val%cum
Strongly_Agree 147 61.0 61.5 61.0 61.5
Somewhat_Agree 76 31.5 31.8 92.5 93.3
Somewhat_Disagree 12 5.0 5.0 97.5 98.3
Strongly_Disagree 4 1.7 1.7 99.2 100.0
NA 2 0.8 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
# i. In the past, even when things got really tough, you never lost sight of your goals.
  d4i <- as.factor(d[,"d4i"])
    # Make "*" to NA
d4i[which(d4i=="*")]<-"NA"
  levels(d4i) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4i <- ordered(d4i, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4i)
  new.d <- apply_labels(new.d, d4i = "tough but never lost")
  temp.d <- data.frame (new.d, d4i)  
  
  result<-questionr::freq(temp.d$d4i,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "i. In the past, even when things got really tough, you never lost sight of your goals.")
i. In the past, even when things got really tough, you never lost sight of your goals.
n % val% %cum val%cum
Strongly_Agree 119 49.4 50.2 49.4 50.2
Somewhat_Agree 102 42.3 43.0 91.7 93.2
Somewhat_Disagree 10 4.1 4.2 95.9 97.5
Strongly_Disagree 6 2.5 2.5 98.3 100.0
NA 4 1.7 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
#j. It’s important for you to be able to do things the way you want to do them rather than the way other people want you to do them.
  d4j <- as.factor(d[,"d4j"])
    # Make "*" to NA
d4j[which(d4j=="*")]<-"NA"
  levels(d4j) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4j <- ordered(d4j, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4j)
  new.d <- apply_labels(new.d, d4j = "the way you want to do matters")
  temp.d <- data.frame (new.d, d4j)  
  
  result<-questionr::freq(temp.d$d4j,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "j. It’s important for you to be able to do things the way you want to do them rather than the way other people want you to do them.")
j. It’s important for you to be able to do things the way you want to do them rather than the way other people want you to do them.
n % val% %cum val%cum
Strongly_Agree 77 32.0 32.8 32.0 32.8
Somewhat_Agree 99 41.1 42.1 73.0 74.9
Somewhat_Disagree 48 19.9 20.4 92.9 95.3
Strongly_Disagree 11 4.6 4.7 97.5 100.0
NA 6 2.5 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
#k. You don’t let your personal feelings get in the way of doing a job.
  d4k <- as.factor(d[,"d4k"])
    # Make "*" to NA
d4k[which(d4k=="*")]<-"NA"
  levels(d4k) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4k <- ordered(d4k, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4k)
  new.d <- apply_labels(new.d, d4k = "personal feelings never get in the way of job")
  temp.d <- data.frame (new.d, d4k)  
  
  result<-questionr::freq(temp.d$d4k,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "k. You don’t let your personal feelings get in the way of doing a job.")
k. You don’t let your personal feelings get in the way of doing a job.
n % val% %cum val%cum
Strongly_Agree 126 52.3 53.2 52.3 53.2
Somewhat_Agree 94 39.0 39.7 91.3 92.8
Somewhat_Disagree 13 5.4 5.5 96.7 98.3
Strongly_Disagree 4 1.7 1.7 98.3 100.0
NA 4 1.7 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
#l. Hard work has really helped you to get ahead in life.
  d4l <- as.factor(d[,"d4l"])
    # Make "*" to NA
d4l[which(d4l=="*")]<-"NA"
  levels(d4l) <- list(Strongly_Agree ="1",
                     Somewhat_Agree="2",
                     Somewhat_Disagree="3",
                     Strongly_Disagree="4")
  d4l <- ordered(d4l, c("Strongly_Agree","Somewhat_Agree","Somewhat_Disagree","Strongly_Disagree"))
  
  new.d <- data.frame(new.d, d4l)
  new.d <- apply_labels(new.d, d4l = "hard work helps")
  temp.d <- data.frame (new.d, d4l)  
  
  result<-questionr::freq(temp.d$d4l,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "l. Hard work has really helped you to get ahead in life.")
l. Hard work has really helped you to get ahead in life.
n % val% %cum val%cum
Strongly_Agree 136 56.4 57.1 56.4 57.1
Somewhat_Agree 78 32.4 32.8 88.8 89.9
Somewhat_Disagree 16 6.6 6.7 95.4 96.6
Strongly_Disagree 8 3.3 3.4 98.8 100.0
NA 3 1.2 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

D5: Childhood

  • D5. The next questions are about the time period of your childhood, before the age of 18. These are standard questions asked in many surveys of life history. This information will allow us to understand how problems that may occur early in life may affect health later in life. This is a sensitive topic and some people may feel uncomfortable with these questions. Please keep in mind that you can skip any question you do not want to answer. All information is kept confidential. When you were growing up, during the first 18 years of your life…
    1. Did you live with anyone who was depressed, mentally ill, or suicidal?
    1. Did you live with anyone who was a problem drinker or alcoholic?
    1. Did you live with anyone who used illegal street drugs or who abused prescription medications?
    1. Did you live with anyone who served time or was sentenced to serve time in a prison, jail, or other correctional facility?
    1. Were your parents separated or divorced?
    1. How often did your parents or adults in your home ever slap, hit, kick, punch or beat each other up?
    1. How often did a parent or adult in your home ever hit, beat, kick, or physically hurt you in any way? Do not include spanking.
    1. How often did a parent or adult in your home ever swear at you, insult you, or put you down?
    1. How often did anyone at least 5 years older than you or an adult, ever touch you sexually?
    1. How often did anyone at least 5 years older than you or an adult, try to make you touch them sexually?
    1. How often did anyone at least 5 years older than you or an adult, force you to have sex?
    • 1=No
    • 2=Yes
    • 3=Parents not married
    • 88=Don’t know/not sure
    • 99=Prefer not to answer”
# a. Did you live with anyone who was depressed, mentally ill, or suicidal?
  d5a <- as.factor(d[,"d5a"])
  # Make "*" to NA
d5a[which(d5a=="*")]<-"NA"
  levels(d5a) <- list(No="1",
                     Yes="2",
                     Dont_know_not_sure="88",
                     Prefer_not_to_answer="99")
  d5a <- ordered(d5a, c("No","Yes","Dont_know_not_sure","Prefer_not_to_answer"))
  
  new.d <- data.frame(new.d, d5a)
  new.d <- apply_labels(new.d, d5a = "live with depressed")
  temp.d <- data.frame (new.d, d5a)  
  
  result<-questionr::freq(temp.d$d5a,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "a. Did you live with anyone who was depressed, mentally ill, or suicidal?")
a. Did you live with anyone who was depressed, mentally ill, or suicidal?
n % val%
No 178 73.9 74.2
Yes 31 12.9 12.9
Dont_know_not_sure 29 12.0 12.1
Prefer_not_to_answer 2 0.8 0.8
NA 1 0.4 NA
Total 241 100.0 100.0 
# b. Did you live with anyone who was a problem drinker or alcoholic?
  d5b <- as.factor(d[,"d5b"])
# Make "*" to NA
d5b[which(d5b=="*")]<-"NA"
  levels(d5b) <- list(No="1",
                     Yes="2",
                     Dont_know_not_sure="88",
                     Prefer_not_to_answer="99")
  d5b <- ordered(d5b, c( "No","Yes","Dont_know_not_sure","Prefer_not_to_answer"))
  
  new.d <- data.frame(new.d, d5b)
  new.d <- apply_labels(new.d, d5b = "live with alcoholic")
  temp.d <- data.frame (new.d, d5b)  
  
  result<-questionr::freq(temp.d$d5b,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "b. Did you live with anyone who was a problem drinker or alcoholic?")
b. Did you live with anyone who was a problem drinker or alcoholic?
n % val%
No 144 59.8 60.0
Yes 83 34.4 34.6
Dont_know_not_sure 11 4.6 4.6
Prefer_not_to_answer 2 0.8 0.8
NA 1 0.4 NA
Total 241 100.0 100.0 
# c. Did you live with anyone who used illegal street drugs or who abused prescription medications?  
  d5c <- as.factor(d[,"d5c"])
# Make "*" to NA
d5c[which(d5c=="*")]<-"NA"
  levels(d5c) <- list(No="1",
                     Yes="2",
                     Dont_know_not_sure="88",
                     Prefer_not_to_answer="99")
  d5c <- ordered(d5c, c( "No","Yes","Dont_know_not_sure","Prefer_not_to_answer"))
  
  new.d <- data.frame(new.d, d5c)
  new.d <- apply_labels(new.d, d5c = "live with illegal street drugs")
  temp.d <- data.frame (new.d, d5c)  
  
  result<-questionr::freq(temp.d$d5c,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "c. Did you live with anyone who used illegal street drugs or who abused prescription medications?")
c. Did you live with anyone who used illegal street drugs or who abused prescription medications?
n % val%
No 181 75.1 75.7
Yes 39 16.2 16.3
Dont_know_not_sure 17 7.1 7.1
Prefer_not_to_answer 2 0.8 0.8
NA 2 0.8 NA
Total 241 100.0 100.0 
# d. Did you live with anyone who served time or was sentenced to serve time in a prison, jail, or other correctional facility? 
  d5d <- as.factor(d[,"d5d"])
# Make "*" to NA
d5d[which(d5d=="*")]<-"NA"
  levels(d5d) <- list(No="1",
                     Yes="2",
                     Dont_know_not_sure="88",
                     Prefer_not_to_answer="99")
  d5d <- ordered(d5d, c( "No","Yes","Dont_know_not_sure","Prefer_not_to_answer"))
  
  new.d <- data.frame(new.d, d5d)
  new.d <- apply_labels(new.d, d5d = "live with people in a prison")
  temp.d <- data.frame (new.d, d5d)  
  
  result<-questionr::freq(temp.d$d5d,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "d. Did you live with anyone who served time or was sentenced to serve time in a prison, etc?")
d. Did you live with anyone who served time or was sentenced to serve time in a prison, etc?
n % val%
No 201 83.4 83.8
Yes 30 12.4 12.5
Dont_know_not_sure 5 2.1 2.1
Prefer_not_to_answer 4 1.7 1.7
NA 1 0.4 NA
Total 241 100.0 100.0 
# e. Were your parents separated or divorced? 
  d5e <- as.factor(d[,"d5e"])
# Make "*" to NA
d5e[which(d5e=="*")]<-"NA"
  levels(d5e) <- list(No="1",
                     Yes="2",
                     Not_married="3",
                     Dont_know_not_sure="88",
                     Prefer_not_to_answer="99")
  d5e <- ordered(d5e, c( "No","Yes","Not_married","Dont_know_not_sure","Prefer_not_to_answer"))
  
  new.d <- data.frame(new.d, d5e)
  new.d <- apply_labels(new.d, d5e = "parents divorced")
  temp.d <- data.frame (new.d, d5e)  
  
  result<-questionr::freq(temp.d$d5e,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e. Were your parents separated or divorced?")
e. Were your parents separated or divorced?
n % val%
No 138 57.3 59.0
Yes 75 31.1 32.1
Not_married 14 5.8 6.0
Dont_know_not_sure 3 1.2 1.3
Prefer_not_to_answer 4 1.7 1.7
NA 7 2.9 NA
Total 241 100.0 100.0 
# f. How often did your parents or adults in your home ever slap, hit, kick, punch or beat each other up?
  d5f <- as.factor(d[,"d5f"])
# Make "*" to NA
d5f[which(d5f=="*")]<-"NA"
  levels(d5f) <- list(Never="1",
                     Once="2",
                     More_than_once="3",
                     Dont_know_not_sure="88",
                     Prefer_not_to_answer="99")
  d5f <- ordered(d5f, c("Never", "Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
  
  new.d <- data.frame(new.d, d5f)
  new.d <- apply_labels(new.d, d5f = "violence to each other")
  temp.d <- data.frame (new.d, d5f)  
  
  result<-questionr::freq(temp.d$d5f,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "f. How often did your parents or adults in your home ever slap, hit, kick, punch or beat each other up?")
f. How often did your parents or adults in your home ever slap, hit, kick, punch or beat each other up?
n % val%
Never 140 58.1 59.8
Once 14 5.8 6.0
More_than_once 30 12.4 12.8
Dont_know_not_sure 37 15.4 15.8
Prefer_not_to_answer 13 5.4 5.6
NA 7 2.9 NA
Total 241 100.0 100.0 
#  g. How often did a parent or adult in your home ever hit, beat, kick, or physically hurt you in any way?
  d5g <- as.factor(d[,"d5g"])
# Make "*" to NA
d5g[which(d5g=="*")]<-"NA"
  levels(d5g) <- list(Never="1",
                     Once="2",
                     More_than_once="3",
                     Dont_know_not_sure="88",
                     Prefer_not_to_answer="99")
  d5g <- ordered(d5g, c("Never", "Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
  
  new.d <- data.frame(new.d, d5g)
  new.d <- apply_labels(new.d, d5g = "violence to you")
  temp.d <- data.frame (new.d, d5g)  
  
  result<-questionr::freq(temp.d$d5g,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "g. How often did a parent or adult in your home ever hit, beat, kick, or physically hurt you in any way?")
g. How often did a parent or adult in your home ever hit, beat, kick, or physically hurt you in any way?
n % val%
Never 165 68.5 70.2
Once 11 4.6 4.7
More_than_once 39 16.2 16.6
Dont_know_not_sure 10 4.1 4.3
Prefer_not_to_answer 10 4.1 4.3
NA 6 2.5 NA
Total 241 100.0 100.0 
# h. How often did a parent or adult in your home ever swear at you, insult you, or put you down?
  d5h <- as.factor(d[,"d5h"])
# Make "*" to NA
d5h[which(d5h=="*")]<-"NA"
  levels(d5h) <- list(Never="1",
                     Once="2",
                     More_than_once="3",
                     Dont_know_not_sure="88",
                     Prefer_not_to_answer="99")
  d5h <- ordered(d5h, c("Never", "Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
  
  new.d <- data.frame(new.d, d5h)
  new.d <- apply_labels(new.d, d5h = "swear insult")
  temp.d <- data.frame (new.d, d5h)  
  
  result<-questionr::freq(temp.d$d5h,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "h. How often did a parent or adult in your home ever swear at you, insult you, or put you down?")
h. How often did a parent or adult in your home ever swear at you, insult you, or put you down?
n % val%
Never 125 51.9 53.6
Once 10 4.1 4.3
More_than_once 73 30.3 31.3
Dont_know_not_sure 18 7.5 7.7
Prefer_not_to_answer 7 2.9 3.0
NA 8 3.3 NA
Total 241 100.0 100.0 
# i. How often did anyone at least 5 years older than you or an adult, ever touch you sexually?
  d5i <- as.factor(d[,"d5i"])
  # Make "*" to NA
d5i[which(d5i=="*")]<-"NA"
  levels(d5i) <- list(Never="1",
                     Once="2",
                     More_than_once="3",
                     Dont_know_not_sure="88",
                     Prefer_not_to_answer="99")
  d5i <- ordered(d5i, c("Never", "Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
  
  new.d <- data.frame(new.d, d5i)
  new.d <- apply_labels(new.d, d5i = "touch you sexually")
  temp.d <- data.frame (new.d, d5i)  
  
  result<-questionr::freq(temp.d$d5i,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "i. How often did anyone at least 5 years older than you or an adult, ever touch you sexually?")
i. How often did anyone at least 5 years older than you or an adult, ever touch you sexually?
n % val%
Never 211 87.6 89.8
Once 9 3.7 3.8
More_than_once 7 2.9 3.0
Dont_know_not_sure 4 1.7 1.7
Prefer_not_to_answer 4 1.7 1.7
NA 6 2.5 NA
Total 241 100.0 100.0 
# j. How often did anyone at least 5 years older than you or an adult, try to make you touch them sexually?
  d5j <- as.factor(d[,"d5j"])
  # Make "*" to NA
d5j[which(d5j=="*")]<-"NA"
  levels(d5j) <- list(Never="1",
                     Once="2",
                     More_than_once="3",
                     Dont_know_not_sure="88",
                     Prefer_not_to_answer="99")
  d5j <- ordered(d5j, c("Never","Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
  
  new.d <- data.frame(new.d, d5j)
  new.d <- apply_labels(new.d, d5j = "touch them sexually")
  temp.d <- data.frame (new.d, d5j)  
  
  result<-questionr::freq(temp.d$d5j,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "j. How often did anyone at least 5 years older than you or an adult, try to make you touch them sexually?")
j. How often did anyone at least 5 years older than you or an adult, try to make you touch them sexually?
n % val%
Never 218 90.5 92.4
Once 5 2.1 2.1
More_than_once 7 2.9 3.0
Dont_know_not_sure 2 0.8 0.8
Prefer_not_to_answer 4 1.7 1.7
NA 5 2.1 NA
Total 241 100.0 100.0 
# k. How often did anyone at least 5 years older than you or an adult, force you to have sex?
  d5k <- as.factor(d[,"d5k"])
  # Make "*" to NA
d5k[which(d5k=="*")]<-"NA"
  levels(d5k) <- list(Never="1",
                     Once="2",
                     More_than_once="3",
                     Dont_know_not_sure="88",
                     Prefer_not_to_answer="99")
  d5k <- ordered(d5k, c("Never","Once","More_than_once","Dont_know_not_sure","Prefer_not_to_answer"))
  
  new.d <- data.frame(new.d, d5k)
  new.d <- apply_labels(new.d, d5k = "forced to have sex")
  temp.d <- data.frame (new.d, d5k)  
  
  result<-questionr::freq(temp.d$d5k,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "k. How often did anyone at least 5 years older than you or an adult, force you to have sex?")
k. How often did anyone at least 5 years older than you or an adult, force you to have sex?
n % val%
Never 224 92.9 94.9
Once 3 1.2 1.3
More_than_once 3 1.2 1.3
Dont_know_not_sure 2 0.8 0.8
Prefer_not_to_answer 4 1.7 1.7
NA 5 2.1 NA
Total 241 100.0 100.0

E1: First indications

  • E1. What were the first indications that suggested that you might have prostate cancer (before you had a prostate biopsy)? Mark all that apply.
    • E1_1: 1=I had a high PSA (‘prostate specific antigen’) test
    • E1_2: 1=My doctor did a digital rectal exam that indicated an abnormality
    • E1_3: 1=I had urinary, sexual, or bowel problems that I went to see my doctor about
    • E1_4: 1=I had bone pain that I went to see my doctor about
    • E1_5: 1=I was fearful I had cancer
    • E1_6: 1=Other
# 1
  e1_1 <- as.factor(d[,"e1_1"])
  levels(e1_1) <- list(High_PSA_test="1")

  new.d <- data.frame(new.d, e1_1)
  new.d <- apply_labels(new.d, e1_1 = "High_PSA_test")
  temp.d <- data.frame (new.d, e1_1)  
  
  result<-questionr::freq(temp.d$e1_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. I had a high PSA (‘prostate specific antigen’) test")
1. I had a high PSA (‘prostate specific antigen’) test
n % val%
High_PSA_test 175 72.6 100
NA 66 27.4 NA
Total 241 100.0 100 
#2
  e1_2 <- as.factor(d[,"e1_2"])
  levels(e1_2) <- list(Digital_rectal_exam="1")

  new.d <- data.frame(new.d, e1_2)
  new.d <- apply_labels(new.d, e1_2 = "digital rectal exam")
  temp.d <- data.frame (new.d, e1_2)  
  
  result<-questionr::freq(temp.d$e1_2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. My doctor did a digital rectal exam that indicated an abnormality")
2. My doctor did a digital rectal exam that indicated an abnormality
n % val%
Digital_rectal_exam 70 29 100
NA 171 71 NA
Total 241 100 100 
#3
  e1_3 <- as.factor(d[,"e1_3"])
  e1_3[which(e1_3=="*")]<-"NA"
  levels(e1_3) <- list(Digital_rectal_exam="1")

  new.d <- data.frame(new.d, e1_3)
  new.d <- apply_labels(new.d, e1_3 = "urinary sexual or bowel problems")
  temp.d <- data.frame (new.d, e1_3)  
  
  result<-questionr::freq(temp.d$e1_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. I had urinary, sexual, or bowel problems that I went to see my doctor about")
3. I had urinary, sexual, or bowel problems that I went to see my doctor about
n % val%
Digital_rectal_exam 38 15.8 100
NA 203 84.2 NA
Total 241 100.0 100 
#4
  e1_4 <- as.factor(d[,"e1_4"])
  e1_4[which(e1_4=="*")]<-"NA"
  levels(e1_4) <- list(Digital_rectal_exam="1")

  new.d <- data.frame(new.d, e1_4)
  new.d <- apply_labels(new.d, e1_4 = "bone pain")
  temp.d <- data.frame (new.d, e1_4)  
  
  result<-questionr::freq(temp.d$e1_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "4. I had bone pain that I went to see my doctor about")
4. I had bone pain that I went to see my doctor about
n % val%
Digital_rectal_exam 5 2.1 100
NA 236 97.9 NA
Total 241 100.0 100 
#5
  e1_5 <- as.factor(d[,"e1_5"])
  e1_5[which(e1_5=="*")]<-"NA"
  levels(e1_5) <- list(Digital_rectal_exam="1")

  new.d <- data.frame(new.d, e1_5)
  new.d <- apply_labels(new.d, e1_5 = "fearful")
  temp.d <- data.frame (new.d, e1_5)  
  
  result<-questionr::freq(temp.d$e1_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "5. I was fearful I had cancer")
5. I was fearful I had cancer
n % val%
Digital_rectal_exam 18 7.5 100
NA 223 92.5 NA
Total 241 100.0 100

E1 Other: First indications

e1other <- d[,"e1other"]
e1other[which(e1other=="#NAME?")]<-"NA"

  new.d <- data.frame(new.d, e1other)
  new.d <- apply_labels(new.d, e1other = "e1other")
  temp.d <- data.frame (new.d, e1other)
result<-questionr::freq(temp.d$e1other, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "E1 Other")
E1 Other
n % val%
After bladder infection 1 0.4 6.2
Blood test positive for cancer 1 0.4 6.2
Complications from groin hernia surgery. 1 0.4 6.2
Don’t know. 1 0.4 6.2
Family history 1 0.4 6.2
Frequent urination 1 0.4 6.2
I had know clue. 1 0.4 6.2
I started having urination issues, very frequent and hard to pass. 1 0.4 6.2
Kept having to go to the bathroom 1 0.4 6.2
My family died of cancer. 1 0.4 6.2
Other family members had prostate cancer 1 0.4 6.2
Procedure for bladder 1 0.4 6.2
Ref. by my medical doctor to see urologist. 1 0.4 6.2
Strong family history 1 0.4 6.2
Terrible family history. Mother had nine brothers, seven had prostate cancer. 1 0.4 6.2
Thought it was upset stomach and having pain. 1 0.4 6.2
NA 225 93.4 NA
Total 241 100.0 100.0

E2: Before diagnosis

  • E2. Before you were diagnosed with prostate cancer:
      1. Did you have any previous prostate biopsies that were negative?
      • 2=Yes
      • 1=No
      • 88=Don’t know
    • If yes, How many?
      • 1=1
      • 2=2
      • 3=3 or more
      1. Did you have any previous PSA blood tests that were considered normal?
      • 2=Yes
      • 1=No
      • 88=Don’t know
    • If yes, How many?
      • 1=1
      • 2=2
      • 3=3
      • 4=4
      • 5=5 or more
# 1
  e2aa <- as.factor(d[,"e2aa"])
# Make "*" to NA
e2aa[which(e2aa=="*")]<-"NA"
  levels(e2aa) <- list(Yes="2",
                      No="1",
                      Dont_know="88")
  e2aa <- ordered(e2aa, c("Yes","No","Dont_know"))
  
  new.d <- data.frame(new.d, e2aa)
  new.d <- apply_labels(new.d, e2aa = "prostate biopsies")
  temp.d <- data.frame (new.d, e2aa)  
  
  result<-questionr::freq(temp.d$e2aa,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "a. Did you have any previous prostate biopsies that were negative?")
a. Did you have any previous prostate biopsies that were negative?
n % val%
Yes 29 12 12.7
No 176 73 76.9
Dont_know 24 10 10.5
NA 12 5 NA
Total 241 100 100.0 
#2
  e2ab <- as.factor(d[,"e2ab"])
# Make "*" to NA
e2ab[which(e2ab=="*")]<-"NA"
  levels(e2ab) <- list(One="1",
                      Two="2",
                      Three_more="3")
  e2ab <- ordered(e2ab, c("One","Two","Three_more"))
  
  new.d <- data.frame(new.d, e2ab)
  new.d <- apply_labels(new.d, e2ab = "prostate biopsies_How many")
  temp.d <- data.frame (new.d, e2ab)  
  
  result<-questionr::freq(temp.d$e2ab,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "If yes, How many?")
If yes, How many?
n % val%
One 16 6.6 41.0
Two 13 5.4 33.3
Three_more 10 4.1 25.6
NA 202 83.8 NA
Total 241 100.0 100.0 
#3
  e2ba <- as.factor(d[,"e2ba"])
# Make "*" to NA
e2ba[which(e2ba=="*")]<-"NA"
  levels(e2ba) <- list(Yes="2",
                       No="1",
                       Dont_know="88")
  e2ba <- ordered(e2ba, c("Yes","No","Dont_know"))
  
  new.d <- data.frame(new.d, e2ba)
  new.d <- apply_labels(new.d, e2ba = "PSA blood tests")
  temp.d <- data.frame (new.d, e2ba)  
  
  result<-questionr::freq(temp.d$e2ba,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "b. Did you have any previous PSA blood tests that were considered normal?")
b. Did you have any previous PSA blood tests that were considered normal?
n % val%
Yes 95 39.4 44.0
No 63 26.1 29.2
Dont_know 58 24.1 26.9
NA 25 10.4 NA
Total 241 100.0 100.0 
#4
  e2bb <- as.factor(d[,"e2bb"])
  # Make "*" to NA
e2bb[which(e2bb=="*")]<-"NA"
  levels(e2bb) <- list(One="1",
                      Two="2",
                      Three="3",
                      Four="4",
                      Five_more="5")
  e2bb <- ordered(e2bb, c("One","Two","Threem","Four","Five_more"))
  
  new.d <- data.frame(new.d, e2bb)
  new.d <- apply_labels(new.d, e2bb = "PSA blood tests_how many")
  temp.d <- data.frame (new.d, e2bb)  
  
  result<-questionr::freq(temp.d$e2bb,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "If yes, How many?")
If yes, How many?
n % val%
One 13 5.4 15.9
Two 21 8.7 25.6
Threem 0 0.0 0.0
Four 5 2.1 6.1
Five_more 43 17.8 52.4
NA 159 66.0 NA
Total 241 100.0 100.0

E3: Decision about PSA blood test

  • E3. Which of the following best describes your decision to have the PSA blood test that indicated that you had prostate cancer?
    • 1=I made the decision alone
    • 2=I made the decision together with a family member or friend
    • 3=I made the decision together with a family member or friend and my doctor, nurse, or health care provider
    • 4= I made the decision together with my doctor, nurse, or health care provider
    • 5=My doctor, nurse, or health care provider made the decision
    • 88=I do not know or remember how the decision was made
  e3 <- as.factor(d[,"e3"])
# Make "*" to NA
e3[which(e3=="*")]<-"NA"
  levels(e3) <- list(Alone="1",
                     With_family_or_friends="2",
                     With_family_and_doctor="3",
                     With_doctor="4",
                     Doctor_made="5",
                     Dont_know_or_remember="88")
  e3 <- ordered(e3, c("Alone","With_family_or_friends","With_family_and_doctor","With_doctor","Doctor_made","Dont_know_or_remember"))
  
  new.d <- data.frame(new.d, e3)
  new.d <- apply_labels(new.d, e3 = "decision to have the PSA blood test")
  temp.d <- data.frame (new.d, e3)  
  
  result<-questionr::freq(temp.d$e3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "E3")
E3
n % val%
Alone 35 14.5 15.2
With_family_or_friends 13 5.4 5.6
With_family_and_doctor 41 17.0 17.7
With_doctor 57 23.7 24.7
Doctor_made 68 28.2 29.4
Dont_know_or_remember 17 7.1 7.4
NA 10 4.1 NA
Total 241 100.0 100.0

E4: Understanding of aggressiveness

  • E4. When you were diagnosed with prostate cancer, what was your understanding of how aggressive your cancer might be (i.e., how likely it was that your cancer might progress).
    • 1=Low risk of progression
    • 2=Intermediate risk of progression
    • 3=High risk of progression
    • 4=Unknown risk of progression
    • 88=Don’t know/Don’t remember
  e4 <- as.factor(d[,"e4"])
# Make "*" to NA
e4[which(e4=="*")]<-"NA"
  levels(e4) <- list(Low_risk="1",
                     Intermediate_risk="2",
                     High_risk="3",
                     Unknown_risk="4",
                     Dont_know_or_remember="88")
  e4 <- ordered(e4, c("Low_risk","Intermediate_risk","High_risk","Unknown_risk","Dont_know_or_remember"))
  
  new.d <- data.frame(new.d, e4)
  new.d <- apply_labels(new.d, e4 = "how aggressive")
  temp.d <- data.frame (new.d, e4)  
  
  result<-questionr::freq(temp.d$e4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e4")
e4
n % val%
Low_risk 73 30.3 30.5
Intermediate_risk 34 14.1 14.2
High_risk 65 27.0 27.2
Unknown_risk 38 15.8 15.9
Dont_know_or_remember 29 12.0 12.1
NA 2 0.8 NA
Total 241 100.0 100.0

E5: Gleason score

  • E5. What was your Gleason score when you were diagnosed with prostate cancer?
    • 1=6 or less
    • 2=7
    • 3=8-10
    • 88=Don’t know
  e5 <- as.factor(d[,"e5"])
# Make "*" to NA
e5[which(e5=="*")]<-"NA"
  levels(e5) <- list(Six_less="1",
                     Seven="2",
                     Eight_to_ten="3",
                     Dont_know="88")
  e5 <- ordered(e5, c("Six_less","Seven","Eight_to_ten","Dont_know"))
  
  new.d <- data.frame(new.d, e5)
  new.d <- apply_labels(new.d, e5 = "Gleason score")
  temp.d <- data.frame (new.d, e5)  
  
  result<-questionr::freq(temp.d$e5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e5")
e5
n % val%
Six_less 31 12.9 13.4
Seven 46 19.1 19.8
Eight_to_ten 34 14.1 14.7
Dont_know 121 50.2 52.2
NA 9 3.7 NA
Total 241 100.0 100.0

E6: Understanding of stage

  • E6. What was your understanding of the stage of your prostate cancer when you were diagnosed?
    • 1=Localized, confined to prostate
    • 2=Regional, tumor extended to regions around the prostate
    • 3=Distant, tumor extended to bones or other parts of body
    • 88=Don’t know about the stage
  e6 <- as.factor(d[,"e6"])
# Make "*" to NA
e6[which(e6=="*")]<-"NA"
  levels(e6) <- list(Localized="1",
                     Regional="2",
                     Distant="3",
                     Dont_know="88")
  e6 <- ordered(e6, c("Localized","Regional","Distant","Dont_know"))
  
  new.d <- data.frame(new.d, e6)
  new.d <- apply_labels(new.d, e6 = "Stage")
  temp.d <- data.frame (new.d, e6)  
  
  result<-questionr::freq(temp.d$e6,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e6")
e6
n % val%
Localized 144 59.8 61.8
Regional 12 5.0 5.2
Distant 8 3.3 3.4
Dont_know 69 28.6 29.6
NA 8 3.3 NA
Total 241 100.0 100.0

E7: MRI guided biopsy

  • E7. Did you have a Magnetic Resonance Imaging (MRI)-guided biopsy to diagnose your cancer? (This is a different type of biopsy than the standard ultrasound biopsy that involves taking 12 random biopsy core samples. Instead, you would be placed in a large donut shaped machine that can be noisy. With assistance from the MRI, 2-3 targeted biopsies would be taken in areas of the tumor shown to be most aggressive.)
    • 2=Yes
    • 1=No
    • 88=Don’t Know
  e7 <- as.factor(d[,"e7"])
# Make "*" to NA
e7[which(e7=="*")]<-"NA"
  levels(e7) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  e7 <- ordered(e7, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, e7)
  new.d <- apply_labels(new.d, e7 = "Stage")
  temp.d <- data.frame (new.d, e7)  
  
  result<-questionr::freq(temp.d$e7,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e7")
e7
n % val%
No 76 31.5 32.6
Yes 80 33.2 34.3
Dont_know 77 32.0 33.0
NA 8 3.3 NA
Total 241 100.0 100.0

E8: Decision about treatment

  • E8. How did you make your treatment decision?
    • 1=I made the decision alone
    • 2=I made the decision together with a family member or friend
    • 3=I made the decision together with a family member or friend and my doctor, nurse, or health care provider
    • 4=I made the decision together with my doctor, nurse, or health care provider
    • 5=My doctor , nurse, or health care provider made the decision
    • 6=I don’t know or remember how the decision was made
  e8 <- as.factor(d[,"e8"])
# Make "*" to NA
e8[which(e8=="*")]<-"NA"
  levels(e8) <- list(Alone="1",
                     With_family_or_friends="2",
                     With_family_and_doctor="3",
                     With_doctor="4",
                     Doctor_made="5",
                     Dont_know_or_remember="88")
  e8 <- ordered(e8, c("Alone","With_family_or_friends","With_family_and_doctor","With_doctor","Doctor_made","Dont_know_or_remember"))
  
  new.d <- data.frame(new.d, e8)
  new.d <- apply_labels(new.d, e8 = "treatment decision")
  temp.d <- data.frame (new.d, e8)  
  
  result<-questionr::freq(temp.d$e8,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e8")
e8
n % val%
Alone 31 12.9 14.0
With_family_or_friends 32 13.3 14.4
With_family_and_doctor 82 34.0 36.9
With_doctor 52 21.6 23.4
Doctor_made 25 10.4 11.3
Dont_know_or_remember 0 0.0 0.0
NA 19 7.9 NA
Total 241 100.0 100.0

E9: The most important factors of tx

  • E9. What were the most important factors you considered in making your treatment decision? Mark all that apply.
    • E9_1: 1=Best chance for cure of my cancer
    • E9_2: 1=Minimize side effects related to sexual function
    • E9_3: 1=Minimize side effects related to urinary function
    • E9_4: 1=Minimize side effects related to bowel function
    • E9_5: 1=Minimize financial cost
    • E9_6: 1=Amount of time and travel required to receive treatments
    • E9_7: 1=Length of recovery time
    • E9_8: 1=Amount of time away from work
    • E9_9: 1=Burden on family members
    • E9_10: 1=Reduce worry and concern about cancer
  e9_1 <- as.factor(d[,"e9_1"])
  levels(e9_1) <- list(Best_for_cure="1")
  new.d <- data.frame(new.d, e9_1)
  new.d <- apply_labels(new.d, e9_1 = "Best for cure")
  temp.d <- data.frame (new.d, e9_1)  
  result<-questionr::freq(temp.d$e9_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Best chance for cure of my cancer")
1. Best chance for cure of my cancer
n % val%
Best_for_cure 203 84.2 100
NA 38 15.8 NA
Total 241 100.0 100 
  e9_2 <- as.factor(d[,"e9_2"])
  levels(e9_2) <- list(side_effects_sexual="1")
  new.d <- data.frame(new.d, e9_2)
  new.d <- apply_labels(new.d, e9_2 = "side effects sexual")
  temp.d <- data.frame (new.d, e9_2)  
  result<-questionr::freq(temp.d$e9_2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Minimize side effects related to sexual function")
2. Minimize side effects related to sexual function
n % val%
side_effects_sexual 62 25.7 100
NA 179 74.3 NA
Total 241 100.0 100 
  e9_3 <- as.factor(d[,"e9_3"])
  levels(e9_3) <- list(side_effects_urinary="1")
  new.d <- data.frame(new.d, e9_3)
  new.d <- apply_labels(new.d, e9_3 = "side effects urinary")
  temp.d <- data.frame (new.d, e9_3)  
  result<-questionr::freq(temp.d$e9_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Minimize side effects related to urinary function")
3. Minimize side effects related to urinary function
n % val%
side_effects_urinary 47 19.5 100
NA 194 80.5 NA
Total 241 100.0 100 
  e9_4 <- as.factor(d[,"e9_4"])
  levels(e9_4) <- list(side_effects_bowel="1")
  new.d <- data.frame(new.d, e9_4)
  new.d <- apply_labels(new.d, e9_4 = "side effects bowel")
  temp.d <- data.frame (new.d, e9_4)  
  result<-questionr::freq(temp.d$e9_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "4. Minimize side effects related to bowel function")
4. Minimize side effects related to bowel function
n % val%
side_effects_bowel 20 8.3 100
NA 221 91.7 NA
Total 241 100.0 100 
  e9_5 <- as.factor(d[,"e9_5"])
  levels(e9_5) <- list(financial_cost="1")
  new.d <- data.frame(new.d, e9_5)
  new.d <- apply_labels(new.d, e9_5 = "financial cost")
  temp.d <- data.frame (new.d, e9_5)  
  result<-questionr::freq(temp.d$e9_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "5. Minimize financial cost")
5. Minimize financial cost
n % val%
financial_cost 8 3.3 100
NA 233 96.7 NA
Total 241 100.0 100 
  e9_6 <- as.factor(d[,"e9_6"])
  levels(e9_6) <- list(time_and_travel="1")
  new.d <- data.frame(new.d, e9_6)
  new.d <- apply_labels(new.d, e9_6 = "time and travel")
  temp.d <- data.frame (new.d, e9_6)  
  result<-questionr::freq(temp.d$e9_6,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "6. Amount of time and travel required to receive treatments")
6. Amount of time and travel required to receive treatments
n % val%
time_and_travel 14 5.8 100
NA 227 94.2 NA
Total 241 100.0 100 
  e9_7 <- as.factor(d[,"e9_7"])
  levels(e9_7) <- list(recovery_time="1")
  new.d <- data.frame(new.d, e9_7)
  new.d <- apply_labels(new.d, e9_7 = "recovery time")
  temp.d <- data.frame (new.d, e9_7)  
  result<-questionr::freq(temp.d$e9_7,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "7. Length of recovery time")
7. Length of recovery time
n % val%
recovery_time 38 15.8 100
NA 203 84.2 NA
Total 241 100.0 100 
  e9_8 <- as.factor(d[,"e9_8"])
  levels(e9_8) <- list(time_away_from_work="1")
  new.d <- data.frame(new.d, e9_8)
  new.d <- apply_labels(new.d, e9_8 = "time away from work")
  temp.d <- data.frame (new.d, e9_8)  
  result<-questionr::freq(temp.d$e9_8,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "8. Amount of time away from work")
8. Amount of time away from work
n % val%
time_away_from_work 8 3.3 100
NA 233 96.7 NA
Total 241 100.0 100 
  e9_9 <- as.factor(d[,"e9_9"])
  levels(e9_9) <- list(family_burden="1")
  new.d <- data.frame(new.d, e9_9)
  new.d <- apply_labels(new.d, e9_9 = "family burden")
  temp.d <- data.frame (new.d, e9_9)  
  result<-questionr::freq(temp.d$e9_9,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "9. Burden on family members")
9. Burden on family members
n % val%
family_burden 31 12.9 100
NA 210 87.1 NA
Total 241 100.0 100 
  e9_10 <- as.factor(d[,"e9_10"])
  levels(e9_10) <- list(Reduce_worry_concern="1")
  new.d <- data.frame(new.d, e9_10)
  new.d <- apply_labels(new.d, e9_10 = "Reduce worry and concern")
  temp.d <- data.frame (new.d, e9_10)  
  result<-questionr::freq(temp.d$e9_10,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "10. Reduce worry and concern about cancer")
10. Reduce worry and concern about cancer
n % val%
Reduce_worry_concern 90 37.3 100
NA 151 62.7 NA
Total 241 100.0 100

E10: Recieved treatment

  • E10. Please mark all the treatments that you have received for your prostate cancer? Mark all that apply.
    • E10_1: 1=Haven’t had any treatment yet (and not specifically on active surveillance or watchful waiting).
    • E10_2: 1=Active Surveillance or watchful waiting
    • E10_3: 1=Prostate surgery (prostatectomy)
    • E10_4: 1=Radiation to the prostate
    • E10_5: 1=Hormonal treatments
    • E10_6: 1=Provenge/immunotherapy (Sipuleucel T)
    • E10_7: 1=Chemotherapy (docetaxel, cabazitaxel, other chemotherapy)
    • E10_8: 1=Other treatments to the prostate (HIFU (High Intensity Focused Ultrasound), RFA (Radio Frequency Ablation), laser, focal therapy, cryotherapy (freezing of the prostate))
  e10_1 <- as.factor(d[,"e10_1"])
  levels(e10_1) <- list(no_treatment="1")
  new.d <- data.frame(new.d, e10_1)
  new.d <- apply_labels(new.d, e10_1 = "no treatment")
  temp.d <- data.frame (new.d, e10_1)  
  result<-questionr::freq(temp.d$e10_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Haven’t had any treatment  yet (and not specifically on active surveillance or watchful waiting).")
1. Haven’t had any treatment yet (and not specifically on active surveillance or watchful waiting).
n % val%
no_treatment 17 7.1 100
NA 224 92.9 NA
Total 241 100.0 100 
  e10_2 <- as.factor(d[,"e10_2"])
  levels(e10_2) <- list(Active_Surveillance="1")
  new.d <- data.frame(new.d, e10_2)
  new.d <- apply_labels(new.d, e10_2 = "Active Surveillance")
  temp.d <- data.frame (new.d, e10_2)  
  result<-questionr::freq(temp.d$e10_2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Active Surveillance or watchful waiting")
2. Active Surveillance or watchful waiting
n % val%
Active_Surveillance 40 16.6 100
NA 201 83.4 NA
Total 241 100.0 100 
  e10_3 <- as.factor(d[,"e10_3"])
  levels(e10_3) <- list(prostatectomy="1")
  new.d <- data.frame(new.d, e10_3)
  new.d <- apply_labels(new.d, e10_3 = "prostatectomy")
  temp.d <- data.frame (new.d, e10_3)  
  result<-questionr::freq(temp.d$e10_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Prostate surgery (prostatectomy)")
3. Prostate surgery (prostatectomy)
n % val%
prostatectomy 82 34 100
NA 159 66 NA
Total 241 100 100 
  e10_4 <- as.factor(d[,"e10_4"])
  levels(e10_4) <- list(Radiation="1")
  new.d <- data.frame(new.d, e10_4)
  new.d <- apply_labels(new.d, e10_4 = "Radiation")
  temp.d <- data.frame (new.d, e10_4)  
  result<-questionr::freq(temp.d$e10_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "4. Radiation to the prostate")
4. Radiation to the prostate
n % val%
Radiation 81 33.6 100
NA 160 66.4 NA
Total 241 100.0 100 
  e10_5 <- as.factor(d[,"e10_5"])
  levels(e10_5) <- list(Hormonal_treatments="1")
  new.d <- data.frame(new.d, e10_5)
  new.d <- apply_labels(new.d, e10_5 = "Hormonal treatments")
  temp.d <- data.frame (new.d, e10_5)  
  result<-questionr::freq(temp.d$e10_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "5. Hormonal treatments")
5. Hormonal treatments
n % val%
Hormonal_treatments 39 16.2 100
NA 202 83.8 NA
Total 241 100.0 100 
  e10_6 <- as.factor(d[,"e10_6"])
  levels(e10_6) <- list(Provenge_immunotherapy="1")
  new.d <- data.frame(new.d, e10_6)
  new.d <- apply_labels(new.d, e10_6 = "Provenge immunotherapy")
  temp.d <- data.frame (new.d, e10_6)  
  result<-questionr::freq(temp.d$e10_6,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "6. Provenge/immunotherapy (Sipuleucel T)")
6. Provenge/immunotherapy (Sipuleucel T)
n % val%
Provenge_immunotherapy 3 1.2 100
NA 238 98.8 NA
Total 241 100.0 100 
  e10_7 <- as.factor(d[,"e10_7"])
  levels(e10_7) <- list(Chemotherapy="1")
  new.d <- data.frame(new.d, e10_7)
  new.d <- apply_labels(new.d, e10_7 = "Chemotherapy")
  temp.d <- data.frame (new.d, e10_7)  
  result<-questionr::freq(temp.d$e10_7,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "7. Chemotherapy (docetaxel, cabazitaxel, other chemotherapy)")
7. Chemotherapy (docetaxel, cabazitaxel, other chemotherapy)
n % val%
Chemotherapy 12 5 100
NA 229 95 NA
Total 241 100 100 
  e10_8 <- as.factor(d[,"e10_8"])
  levels(e10_8) <- list(Other="1")
  new.d <- data.frame(new.d, e10_8)
  new.d <- apply_labels(new.d, e10_8 = "Other")
  temp.d <- data.frame (new.d, e10_8)  
  result<-questionr::freq(temp.d$e10_8,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "8. Other treatments to the prostate ")
8. Other treatments to the prostate
n % val%
Other 11 4.6 100
NA 230 95.4 NA
Total 241 100.0 100

E10-3 Prostatectomy

  • E10_3. Prostate surgery (prostatectomy), indicate which type(s):
    • E10_3_1: 1=Robotic or laproscopic surgery resulting in removal of the prostate
    • E10_3_2: 1=Open surgical removal of the prostate (using a long incision)
    • E10_3_3: 1=Had surgery but unsure of type
  e10_3_1 <- as.factor(d[,"e10_3_1"])
  levels(e10_3_1) <- list(Robotic_laproscopic_surgery="1")
  new.d <- data.frame(new.d, e10_3_1)
  new.d <- apply_labels(new.d, e10_3_1 = "Robotic or laproscopic surgery")
  temp.d <- data.frame (new.d, e10_3_1)  
  result<-questionr::freq(temp.d$e10_3_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Robotic or laproscopic surgery resulting in removal of the prostate")
1. Robotic or laproscopic surgery resulting in removal of the prostate
n % val%
Robotic_laproscopic_surgery 83 34.4 100
NA 158 65.6 NA
Total 241 100.0 100 
  e10_3_2 <- as.factor(d[,"e10_3_2"])
  levels(e10_3_2) <- list(Open_surgical_removal="1")
  new.d <- data.frame(new.d, e10_3_2)
  new.d <- apply_labels(new.d, e10_3_2 = "Open surgical removal")
  temp.d <- data.frame (new.d, e10_3_2)  
  result<-questionr::freq(temp.d$e10_3_2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. Open surgical removal of the prostate (using a long incision)")
2. Open surgical removal of the prostate (using a long incision)
n % val%
Open_surgical_removal 26 10.8 100
NA 215 89.2 NA
Total 241 100.0 100 
  e10_3_3 <- as.factor(d[,"e10_3_3"])
  levels(e10_3_3) <- list(unsure_of_type="1")
  new.d <- data.frame(new.d, e10_3_3)
  new.d <- apply_labels(new.d, e10_3_3 = "unsure of type")
  temp.d <- data.frame (new.d, e10_3_3)  
  result<-questionr::freq(temp.d$e10_3_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Had surgery but unsure of type")
3. Had surgery but unsure of type
n % val%
unsure_of_type 12 5 100
NA 229 95 NA
Total 241 100 100

E10-4 Radiation

  • E10_4. Radiation to the prostate, indicate which type(s):
    • E10_4_1: 1=External beam radiation, where beams are aimed from the outside of your body (including IMRT (Intensity Modulated Radiation Therapy), IGRT (Image-Guided Radiation Therapy), arc therapy, proton beam, cyberknife, or 3D-conformal beam therapy)
    • E10_4_2: 1 = Insertion of radiation seed/roods (brachytherapy)
    • E10_4_3: 1=Other types of radiation therapy, or unsure of what type
  e10_4_1 <- as.factor(d[,"e10_4_1"])
  levels(e10_4_1) <- list(External_beam_radiation="1")
  new.d <- data.frame(new.d, e10_4_1)
  new.d <- apply_labels(new.d, e10_4_1 = "External beam radiation")
  temp.d <- data.frame (new.d, e10_4_1)  
  result<-questionr::freq(temp.d$e10_4_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. External beam radiation")
1. External beam radiation
n % val%
External_beam_radiation 85 35.3 100
NA 156 64.7 NA
Total 241 100.0 100 
  e10_4_2 <- as.factor(d[,"e10_4_2"])
  levels(e10_4_2) <- list(brachytherapy="1")
  new.d <- data.frame(new.d, e10_4_2)
  new.d <- apply_labels(new.d, e10_4_2 = "brachytherapy")
  temp.d <- data.frame (new.d, e10_4_2)  
  result<-questionr::freq(temp.d$e10_4_2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. brachytherapy")
2. brachytherapy
n % val%
brachytherapy 18 7.5 100
NA 223 92.5 NA
Total 241 100.0 100 
  e10_4_3 <- as.factor(d[,"e10_4_3"])
  levels(e10_4_3) <- list(Other_types="1")
  new.d <- data.frame(new.d, e10_4_3)
  new.d <- apply_labels(new.d, e10_4_3 = "Other types")
  temp.d <- data.frame (new.d, e10_4_3)  
  result<-questionr::freq(temp.d$e10_4_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Other types")
3. Other types
n % val%
Other_types 17 7.1 100
NA 224 92.9 NA
Total 241 100.0 100

E10-5 Hormonal treatments

  • E10_5. Hormonal treatments, indicate which type(s):
    • E10_5_1: 1=Hormone shots (Lupron, Zoladex, Firmagon, Eligard, Vantas)
    • E10_5_2: 1= Surgical removal of testicles (orchiectomy)
    • E10_5_3: 1=Casodex (bicalutamide) or Eulexin (flutamide) pills
    • E10_5_4: 1=Zytiga (abiraterone) or Xtandi (enzalutamide) pills
    • E10_5_5: 1=Had hormone treatment, but unsure of type
  e10_5_1 <- as.factor(d[,"e10_5_1"])
  levels(e10_5_1) <- list(Hormone_shots="1")
  new.d <- data.frame(new.d, e10_5_1)
  new.d <- apply_labels(new.d, e10_5_1 = "Hormone shots")
  temp.d <- data.frame (new.d, e10_5_1)  
  result<-questionr::freq(temp.d$e10_5_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "1. Hormone shots")
1. Hormone shots
n % val%
Hormone_shots 56 23.2 100
NA 185 76.8 NA
Total 241 100.0 100 
  e10_5_2 <- as.factor(d[,"e10_5_2"])
  levels(e10_5_2) <- list(orchiectomy="1")
  new.d <- data.frame(new.d, e10_5_2)
  new.d <- apply_labels(new.d, e10_5_2 = "orchiectomy")
  temp.d <- data.frame (new.d, e10_5_2)  
  result<-questionr::freq(temp.d$e10_5_2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "2. orchiectomy")
2. orchiectomy
n % val%
orchiectomy 4 1.7 100
NA 237 98.3 NA
Total 241 100.0 100 
  e10_5_3 <- as.factor(d[,"e10_5_3"])
  levels(e10_5_3) <- list(Casodex_Eulexin="1")
  new.d <- data.frame(new.d, e10_5_3)
  new.d <- apply_labels(new.d, e10_5_3 = "Casodex or Eulexin pills")
  temp.d <- data.frame (new.d, e10_5_3)  
  result<-questionr::freq(temp.d$e10_5_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "3. Casodex or Eulexin pills")
3. Casodex or Eulexin pills
n % val%
Casodex_Eulexin 7 2.9 100
NA 234 97.1 NA
Total 241 100.0 100 
  e10_5_4 <- as.factor(d[,"e10_5_4"])
  levels(e10_5_4) <- list(Zytiga_Xtandi="1")
  new.d <- data.frame(new.d, e10_5_4)
  new.d <- apply_labels(new.d, e10_5_4 = "Zytiga or Xtandi pills")
  temp.d <- data.frame (new.d, e10_5_4)  
  result<-questionr::freq(temp.d$e10_5_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "4. Zytiga or Xtandi pills")
4. Zytiga or Xtandi pills
n % val%
Zytiga_Xtandi 5 2.1 100
NA 236 97.9 NA
Total 241 100.0 100 
  e10_5_5 <- as.factor(d[,"e10_5_5"])
  levels(e10_5_5) <- list(unsure_type="1")
  new.d <- data.frame(new.d, e10_5_5)
  new.d <- apply_labels(new.d, e10_5_5 = "unsure of type")
  temp.d <- data.frame (new.d, e10_5_5)  
  result<-questionr::freq(temp.d$e10_5_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "5. unsure of type")
5. unsure of type
n % val%
unsure_type 16 6.6 100
NA 225 93.4 NA
Total 241 100.0 100

E11: Treatment decision

  • E11. Your treatment decision: How true is each of the following statements for you?
      1. I had all the information I needed when a treatment was chosen for my prostate cancer
      1. My doctors told me the whole story about the effects of treatment
      1. I knew the right questions to ask my doctor
      1. I had enough time to make a decision about my treatment
      1. I am satisfied with the choices I made in treating my prostate cancer
      1. I would recommend the treatment I had to a close relative or friend
      • 1=Not at all
      • 2=A little bit
      • 3=Somewhat
      • 4=Quite a bit
      • 5=Very much
  e11a <- as.factor(d[,"e11a"])
# Make "*" to NA
e11a[which(e11a=="*")]<-"NA"
  levels(e11a) <- list(Not_at_all="1",
                       A_little_bit="2",
                       Somewhat="3",
                       Quite_a_bit="4",
                       Very_much="5")
  new.d <- data.frame(new.d, e11a)
  new.d <- apply_labels(new.d, e11a = "all info")
  temp.d <- data.frame (new.d, e11a)  
  result<-questionr::freq(temp.d$e11a,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "a. I had all the information I needed when a treatment was chosen for my prostate cancer")
a. I had all the information I needed when a treatment was chosen for my prostate cancer
n % val%
Not_at_all 4 1.7 1.7
A_little_bit 12 5.0 5.2
Somewhat 32 13.3 13.9
Quite_a_bit 55 22.8 23.8
Very_much 128 53.1 55.4
NA 10 4.1 NA
Total 241 100.0 100.0 
  e11b <- as.factor(d[,"e11b"])
# Make "*" to NA
e11b[which(e11b=="*")]<-"NA"
  levels(e11b) <- list(Not_at_all="1",
                       A_little_bit="2",
                       Somewhat="3",
                       Quite_a_bit="4",
                       Very_much="5")
  new.d <- data.frame(new.d, e11b)
  new.d <- apply_labels(new.d, e11b = "be told about effects")
  temp.d <- data.frame (new.d, e11b)  
  result<-questionr::freq(temp.d$e11b,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "b. My doctors told me the whole story about the effects of treatment")
b. My doctors told me the whole story about the effects of treatment
n % val%
Not_at_all 3 1.2 1.3
A_little_bit 11 4.6 4.8
Somewhat 35 14.5 15.2
Quite_a_bit 54 22.4 23.4
Very_much 128 53.1 55.4
NA 10 4.1 NA
Total 241 100.0 100.0 
  e11c <- as.factor(d[,"e11c"])
  # Make "*" to NA
e11c[which(e11c=="*")]<-"NA"
  levels(e11c) <- list(Not_at_all="1",
                       A_little_bit="2",
                       Somewhat="3",
                       Quite_a_bit="4",
                       Very_much="5")
  new.d <- data.frame(new.d, e11c)
  new.d <- apply_labels(new.d, e11c = "right questions to ask")
  temp.d <- data.frame (new.d, e11c)  
  result<-questionr::freq(temp.d$e11c,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "c. I knew the right questions to ask my doctor")
c. I knew the right questions to ask my doctor
n % val%
Not_at_all 22 9.1 9.5
A_little_bit 36 14.9 15.6
Somewhat 73 30.3 31.6
Quite_a_bit 44 18.3 19.0
Very_much 56 23.2 24.2
NA 10 4.1 NA
Total 241 100.0 100.0 
  e11d <- as.factor(d[,"e11d"])
  # Make "*" to NA
e11d[which(e11d=="*")]<-"NA"
  levels(e11d) <- list(Not_at_all="1",
                       A_little_bit="2",
                       Somewhat="3",
                       Quite_a_bit="4",
                       Very_much="5")
  new.d <- data.frame(new.d, e11d)
  new.d <- apply_labels(new.d, e11d = "enough time to decide")
  temp.d <- data.frame (new.d, e11d)  
  result<-questionr::freq(temp.d$e11d,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "d. I had enough time to make a decision about my treatment")
d. I had enough time to make a decision about my treatment
n % val%
Not_at_all 5 2.1 2.2
A_little_bit 12 5.0 5.2
Somewhat 40 16.6 17.5
Quite_a_bit 56 23.2 24.5
Very_much 116 48.1 50.7
NA 12 5.0 NA
Total 241 100.0 100.0 
  e11e <- as.factor(d[,"e11e"])
  # Make "*" to NA
e11e[which(e11e=="*")]<-"NA"
  levels(e11e) <- list(Not_at_all="1",
                       A_little_bit="2",
                       Somewhat="3",
                       Quite_a_bit="4",
                       Very_much="5")
  new.d <- data.frame(new.d, e11e)
  new.d <- apply_labels(new.d, e11e = "satisfied with the choices")
  temp.d <- data.frame (new.d, e11e)  
  result<-questionr::freq(temp.d$e11e,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e. I am satisfied with the choices I made in treating my prostate cancer")
e. I am satisfied with the choices I made in treating my prostate cancer
n % val%
Not_at_all 8 3.3 3.4
A_little_bit 10 4.1 4.3
Somewhat 32 13.3 13.8
Quite_a_bit 45 18.7 19.4
Very_much 137 56.8 59.1
NA 9 3.7 NA
Total 241 100.0 100.0 
  e11f <- as.factor(d[,"e11f"])
  # Make "*" to NA
e11f[which(e11f=="*")]<-"NA"
  levels(e11f) <- list(Not_at_all="1",
                       A_little_bit="2",
                       Somewhat="3",
                       Quite_a_bit="4",
                       Very_much="5")
  new.d <- data.frame(new.d, e11f)
  new.d <- apply_labels(new.d, e11f = "would recommend")
  temp.d <- data.frame (new.d, e11f)  
  result<-questionr::freq(temp.d$e11f,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "f. I would recommend the treatment I had to a close relative or friend")
f. I would recommend the treatment I had to a close relative or friend
n % val%
Not_at_all 13 5.4 5.7
A_little_bit 9 3.7 3.9
Somewhat 41 17.0 18.0
Quite_a_bit 37 15.4 16.2
Very_much 128 53.1 56.1
NA 13 5.4 NA
Total 241 100.0 100.0

E12: Instructions from doctors or nurses

  • E12. Have you ever received instructions from a doctor, nurse, or other health professional about who you should see for routine prostate cancer checkups or monitoring?
    • 2=Yes
    • 1=No
    • 88=Don’t Know/not sure
  e12 <- as.factor(d[,"e12"])
# Make "*" to NA
e12[which(e12=="*")]<-"NA"
  levels(e12) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  e12 <- ordered(e12, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, e12)
  new.d <- apply_labels(new.d, e12 = "received instructions")
  temp.d <- data.frame (new.d, e12)  
  
  result<-questionr::freq(temp.d$e12,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e12")
e12
n % val%
No 32 13.3 13.7
Yes 183 75.9 78.5
Dont_know 18 7.5 7.7
NA 8 3.3 NA
Total 241 100.0 100.0

E13: # of PSA blood test

  • E13. Since your prostate cancer diagnosis, how many times have you had a PSA blood test?
    • 0=None
    • 1=1
    • 2=2
    • 3=3
    • 4=4 or more
    • 88=Don’t know/not sure
  e13 <- as.factor(d[,"e13"])
# Make "*" to NA
e13[which(e13=="*")]<-"NA"
  levels(e13) <- list(None="0",
                      One="1",
                      Two="2",
                     Three="3",
                     Four_more="4",
                     Dont_know="88")
  e13 <- ordered(e13, c("None","One","Two","Three","Four_more","Dont_know"))
  
  new.d <- data.frame(new.d, e13)
  new.d <- apply_labels(new.d, e13 = "times of PSA blood test")
  temp.d <- data.frame (new.d, e13)  
  
  result<-questionr::freq(temp.d$e13,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e13")
e13
n % val%
None 7 2.9 3.0
One 8 3.3 3.4
Two 17 7.1 7.2
Three 37 15.4 15.7
Four_more 136 56.4 57.9
Dont_know 30 12.4 12.8
NA 6 2.5 NA
Total 241 100.0 100.0

E14: Be told PSA was rising

  • E14. Since diagnosis or treatment, have you ever been told that your PSA was rising?
    • 2=Yes
    • 1=No
    • 88=Don’t Know/not sure
  e14 <- as.factor(d[,"e14"])
# Make "*" to NA
e14[which(e14=="*")]<-"NA"
  levels(e14) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  e14 <- ordered(e14, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, e14)
  new.d <- apply_labels(new.d, e14 = "been told PSA was rising")
  temp.d <- data.frame (new.d, e14)  
  
  result<-questionr::freq(temp.d$e14,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e14")
e14
n % val%
No 157 65.1 67.7
Yes 49 20.3 21.1
Dont_know 26 10.8 11.2
NA 9 3.7 NA
Total 241 100.0 100.0

E15: Recurred or got worse

  • E15. Since you were diagnosed, did your doctor ever tell you that your prostate cancer came back (recurred) or progressed (got worse)?
    • 2=Yes
    • 1=No
    • 88=Don’t Know/not sure
  e15 <- as.factor(d[,"e15"])
# Make "*" to NA
e15[which(e15=="*")]<-"NA"
  levels(e15) <- list(No="1",
                     Yes="2",
                     Dont_know="88")
  e15 <- ordered(e15, c("No","Yes","Dont_know"))
  
  new.d <- data.frame(new.d, e15)
  new.d <- apply_labels(new.d, e15 = "been told recurred progressed")
  temp.d <- data.frame (new.d, e15)  
  
  result<-questionr::freq(temp.d$e15,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "e15")
e15
n % val%
No 203 84.2 87.1
Yes 17 7.1 7.3
Dont_know 13 5.4 5.6
NA 8 3.3 NA
Total 241 100.0 100.0

F1: Height

  • F1. How tall are you?
  f1cm <- d[,"f1cm"]
 
  new.d <- data.frame(new.d, f1cm)
  new.d <- apply_labels(new.d, f1cm = "height in cm")
  temp.d <- data.frame (new.d, f1cm)  
  
  result<-questionr::freq(temp.d$f1cm,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "How tall are you? (cm)")
How tall are you? (cm)
n % val%
111 1 0.4 16.7
148 1 0.4 16.7
2 1 0.4 16.7
225 1 0.4 16.7
5 1 0.4 16.7
7 1 0.4 16.7
NA 235 97.5 NA
Total 241 100.0 100.0

F2: Weight

  • F2. How much do you current weight?
  f2lbs <- d[,"f2lbs"]
  new.d <- data.frame(new.d, f2lbs)
  new.d <- apply_labels(new.d, f2lbs = "weight in lbs")
  temp.d <- data.frame (new.d, f2lbs)  
  result<-questionr::freq(temp.d$f2lbs,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "How much do you current weight? (lbs)")
How much do you current weight? (lbs)
n % val%
*4 1 0.4 0.5
0* 1 0.4 0.5
1 2 0.8 0.9
1* 1 0.4 0.5
115 2 0.8 0.9
130 3 1.2 1.4
135 1 0.4 0.5
137 1 0.4 0.5
140 3 1.2 1.4
141 1 0.4 0.5
145 2 0.8 0.9
147 1 0.4 0.5
150 1 0.4 0.5
152 1 0.4 0.5
153 2 0.8 0.9
154 1 0.4 0.5
155 3 1.2 1.4
156 1 0.4 0.5
157 2 0.8 0.9
158 1 0.4 0.5
160 4 1.7 1.8
161 1 0.4 0.5
162 1 0.4 0.5
163 1 0.4 0.5
165 1 0.4 0.5
166 2 0.8 0.9
168 1 0.4 0.5
169 1 0.4 0.5
170 5 2.1 2.3
175 3 1.2 1.4
176 1 0.4 0.5
177 2 0.8 0.9
178 2 0.8 0.9
180 4 1.7 1.8
182 3 1.2 1.4
183 4 1.7 1.8
184 2 0.8 0.9
185 10 4.1 4.6
186 1 0.4 0.5
188 1 0.4 0.5
189 2 0.8 0.9
190 5 2.1 2.3
191 1 0.4 0.5
192 1 0.4 0.5
193 2 0.8 0.9
195 3 1.2 1.4
196 1 0.4 0.5
197 2 0.8 0.9
198 1 0.4 0.5
199 1 0.4 0.5
2 1 0.4 0.5
200 6 2.5 2.8
205 3 1.2 1.4
207 2 0.8 0.9
208 2 0.8 0.9
209 1 0.4 0.5
210 7 2.9 3.2
212 3 1.2 1.4
213 1 0.4 0.5
215 7 2.9 3.2
218 3 1.2 1.4
220 6 2.5 2.8
223 1 0.4 0.5
225 4 1.7 1.8
230 9 3.7 4.1
232 1 0.4 0.5
233 2 0.8 0.9
234 2 0.8 0.9
235 2 0.8 0.9
240 6 2.5 2.8
241 1 0.4 0.5
242 1 0.4 0.5
243 1 0.4 0.5
245 3 1.2 1.4
246 1 0.4 0.5
247 3 1.2 1.4
250 4 1.7 1.8
255 1 0.4 0.5
257 1 0.4 0.5
260 5 2.1 2.3
262 2 0.8 0.9
265 1 0.4 0.5
266 2 0.8 0.9
268 1 0.4 0.5
270 1 0.4 0.5
271 1 0.4 0.5
275 2 0.8 0.9
277 1 0.4 0.5
280 3 1.2 1.4
286 1 0.4 0.5
287 1 0.4 0.5
295 2 0.8 0.9
315 1 0.4 0.5
317 1 0.4 0.5
326 1 0.4 0.5
350 1 0.4 0.5
361 1 0.4 0.5
365 1 0.4 0.5
397 1 0.4 0.5
424 1 0.4 0.5
74 1 0.4 0.5
NA 24 10.0 NA
Total 241 100.0 100.0 
  f2kgs <- d[,"f2kgs"]
  new.d <- data.frame(new.d, f2kgs)
  new.d <- apply_labels(new.d, f2kgs = "weight in lbs")
  temp.d <- data.frame (new.d, f2kgs)  
  result<-questionr::freq(temp.d$f2kgs,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "How much do you current weight? (kgs)")
How much do you current weight? (kgs)
n % val%
10 1 0.4 33.3
55 1 0.4 33.3
61 1 0.4 33.3
NA 238 98.8 NA
Total 241 100.0 100.0

F3: Exercise frequency

  • F3. How many days per week do you typically get moderate or strenuous exercise (such as heavy lifting, shop work, construction or farm work, home repair, gardening, bowling, golf, jogging, basketball, riding a bike, etc.)?
    • 4=5-7 times per week
    • 3=3-4 times per week
    • 2=1-2 times per week
    • 1=Less than once per week/do not exercise
  f3 <- as.factor(d[,"f3"])
# Make "*" to NA
f3[which(f3=="*")]<-"NA"
  levels(f3) <- list(Per_week_5_7="4",
                     Per_week_3_4="3",
                     Per_week_1_2="2",
                     Per_week_less_1="1")
  f3 <- ordered(f3, c("Per_week_5_7","Per_week_3_4","Per_week_1_2","Per_week_less_1"))
  
  new.d <- data.frame(new.d, f3)
  new.d <- apply_labels(new.d, f3 = "exercise")
  temp.d <- data.frame (new.d, f3)  
  
  result<-questionr::freq(temp.d$f3,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "F3. How many days per week do you typically get moderate or strenuous exercise")
F3. How many days per week do you typically get moderate or strenuous exercise
n % val% %cum val%cum
Per_week_5_7 29 12.0 13.2 12.0 13.2
Per_week_3_4 54 22.4 24.5 34.4 37.7
Per_week_1_2 68 28.2 30.9 62.7 68.6
Per_week_less_1 69 28.6 31.4 91.3 100.0
NA 21 8.7 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

F4: Minutes of exercise

  • F4. On those days that you do moderate or strenuous exercise, how many minutes did you typically exercise at this level?
    • 2=Less than 30 minutes
    • 3=30 minutes – 1 hour
    • 4=More than 1 hour
    • 1=Do not exercise
  f4 <- as.factor(d[,"f4"])
# Make "*" to NA
f4[which(f4=="*")]<-"NA"
  levels(f4) <- list(Less_than_30_min="2",
                     Between_30_min_1_hour="3",
                     More_than_1_hour="4",
                     Do_not_exercise="1")
  f4 <- ordered(f4, c("Less_than_30_min","Between_30_min_1_hour","More_than_1_hour","Do_not_exercise"))
  
  new.d <- data.frame(new.d, f4)
  new.d <- apply_labels(new.d, f4 = "how many minutes exercise")
  temp.d <- data.frame (new.d, f4)  
  
  result<-questionr::freq(temp.d$f4,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "F4")
F4
n % val% %cum val%cum
Less_than_30_min 60 24.9 27.1 24.9 27.1
Between_30_min_1_hour 76 31.5 34.4 56.4 61.5
More_than_1_hour 41 17.0 18.6 73.4 80.1
Do_not_exercise 44 18.3 19.9 91.7 100.0
NA 20 8.3 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

F5: Drink alcohol frequency

  • F5. In the past month, about how often do you have at least one drink of any alcoholic beverage such as beer, wine, a malt beverage, or liquor? One drink is equivalent to a 12 oz beer, a 5 oz glass of wine, or a drink with one shot of liquor.
    • 6=Everyday
    • 5=5-6 times per week
    • 4=3-4 times per week
    • 3=1-2 times per week
    • 2=Fewer than once per week
    • 1=Did not drink
  f5 <- as.factor(d[,"f5"])
# Make "*" to NA
f5[which(f5=="*")]<-"NA"
  levels(f5) <- list(Everyday="6",
                     Per_week_5_6_times="5",
                     Per_week_3_4_times="4",
                     Per_week_1_2_times="3",
                     Per_week_fewer_once="2",
                     Not_drink="1")
  f5 <- ordered(f5, c("Everyday","Per_week_5_6_times","Per_week_3_4_times","Per_week_1_2_times","Per_week_fewer_once","Not_drink"))
  
  new.d <- data.frame(new.d, f5)
  new.d <- apply_labels(new.d, f5 = "how often drink")
  temp.d <- data.frame (new.d, f5)  
  
  result<-questionr::freq(temp.d$f5,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "f5")
f5
n % val% %cum val%cum
Everyday 5 2.1 2.1 2.1 2.1
Per_week_5_6_times 9 3.7 3.8 5.8 6.0
Per_week_3_4_times 34 14.1 14.5 19.9 20.4
Per_week_1_2_times 41 17.0 17.4 36.9 37.9
Per_week_fewer_once 41 17.0 17.4 53.9 55.3
Not_drink 105 43.6 44.7 97.5 100.0
NA 6 2.5 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

F6: How many drinks

  • F6. When you drank during the past month, how many drinks do you have on a typical occasion?
    • 3=3 or more drinks
    • 2=1-2 drinks
    • 1=Did not drink
  f6 <- as.factor(d[,"f6"])
# Make "*" to NA
f6[which(f6=="*")]<-"NA"
  levels(f6) <- list(Three_or_more="3",
                     One_to_two_drinks="2",
                     Not_drink="1")
  f6 <- ordered(f6, c("Three_or_more","One_to_two_drinks","Not_drink"))
  
  new.d <- data.frame(new.d, f6)
  new.d <- apply_labels(new.d, f6 = "how many drinks")
  temp.d <- data.frame (new.d, f6)  
  
  result<-questionr::freq(temp.d$f6,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "f6")
f6
n % val% %cum val%cum
Three_or_more 22 9.1 9.5 9.1 9.5
One_to_two_drinks 98 40.7 42.4 49.8 51.9
Not_drink 111 46.1 48.1 95.9 100.0
NA 10 4.1 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

F7: Smoking history

  • F7. Have you ever smoked at least 100 cigarettes in your lifetime?
    • 1=No
    • 2=Yes
  • F7Age. If yes, At what age did you start smoking on a regular basis (at least one cigarette/day)?
    • 555 = “Less than 10”
    • 777 = “75+”
  • F7a. How many cigarettes do you (or did you) usually smoke per day?
    • 1=1-5
    • 2=6-10
    • 3=11-20
    • 4=21-30
    • 5=31+
  • F7b. Have you quit smoking?
    • 1=No
    • 2=Yes
  • F7BAge. If yes, At what age did you quit?
    • 555 = “Less than 10”
    • 777 = “75+”
  f7 <- as.factor(d[,"f7"])
# Make "*" to NA
f7[which(f7=="*")]<-"NA"
  levels(f7) <- list(Yes="2",
                     No="1")
  f7 <- ordered(f7, c("No","Yes"))
  
  new.d <- data.frame(new.d, f7)
  new.d <- apply_labels(new.d, f7 = "smoke")
  temp.d <- data.frame (new.d, f7)  
  
  result<-questionr::freq(temp.d$f7,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "F7. Have you ever smoked at least 100 cigarettes in your lifetime?")
F7. Have you ever smoked at least 100 cigarettes in your lifetime?
n % val% %cum val%cum
No 120 49.8 53.3 49.8 53.3
Yes 105 43.6 46.7 93.4 100.0
NA 16 6.6 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  f7age <- d[,"f7age"]
  f7age[which(f7age=="555")]<-"Less_than_10"
  f7age[which(f7age=="777")]<-"More_than_75"

  new.d <- data.frame(new.d, f7age)
  new.d <- apply_labels(new.d, f7age = "age start to smoke")
  temp.d <- data.frame (new.d, f7age)  
  
  result<-questionr::freq(temp.d$f7age,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "F7Age. If yes, At what age did you start smoking on a regular basis (at least one cigarette/day)?")
F7Age. If yes, At what age did you start smoking on a regular basis (at least one cigarette/day)?
n % val%
12 3 1.2 3.7
13 2 0.8 2.4
14 7 2.9 8.5
15 10 4.1 12.2
16 11 4.6 13.4
17 6 2.5 7.3
18 12 5.0 14.6
19 6 2.5 7.3
20 6 2.5 7.3
21 2 0.8 2.4
22 1 0.4 1.2
23 1 0.4 1.2
25 5 2.1 6.1
26 1 0.4 1.2
3 1 0.4 1.2
30 2 0.8 2.4
32 1 0.4 1.2
33 1 0.4 1.2
4 1 0.4 1.2
54 1 0.4 1.2
7 1 0.4 1.2
70 1 0.4 1.2
NA 159 66.0 NA
Total 241 100.0 100.0 
  f7a <- as.factor(d[,"f7a"])
  # Make "*" to NA
f7a[which(f7a=="*")]<-"NA"
  levels(f7a) <- list(One_to_five="1",
                     Six_to_ten="2",
                     Eleven_to_twenty="3",
                     Twentyone_to_Thirty="4",
                     Older_31="5")
  f7a <- ordered(f7a, c("One_to_five","Six_to_ten","Eleven_to_twenty","Twentyone_to_Thirty","Older_31"))

  new.d <- data.frame(new.d, f7a)
  new.d <- apply_labels(new.d, f7a = "How many cigarettes per day")
  temp.d <- data.frame (new.d, f7a)  
  
  result<-questionr::freq(temp.d$f7a,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "F7a. How many cigarettes do you (or did you) usually smoke per day?")
F7a. How many cigarettes do you (or did you) usually smoke per day?
n % val% %cum val%cum
One_to_five 34 14.1 30.6 14.1 30.6
Six_to_ten 31 12.9 27.9 27.0 58.6
Eleven_to_twenty 36 14.9 32.4 41.9 91.0
Twentyone_to_Thirty 9 3.7 8.1 45.6 99.1
Older_31 1 0.4 0.9 46.1 100.0
NA 130 53.9 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0 
  f7b <- as.factor(d[,"f7b"])
    # Make "*" to NA
f7b[which(f7b=="*")]<-"NA"
  levels(f7b) <- list(No="1",
                     Yes="2")

  new.d <- data.frame(new.d, f7b)
  new.d <- apply_labels(new.d, f7b = "quit smoking")
  temp.d <- data.frame (new.d, f7b)  
  
  result<-questionr::freq(temp.d$f7b,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "F7b. Have you quit smoking?")
F7b. Have you quit smoking?
n % val%
No 31 12.9 28.7
Yes 77 32.0 71.3
NA 133 55.2 NA
Total 241 100.0 100.0 
  f7bage <- d[,"f7bage"]
  f7bage[which(f7bage=="555")]<-"Less_than_10"
  f7bage[which(f7bage=="777")]<-"More_than_75"

  new.d <- data.frame(new.d, f7bage)
  new.d <- apply_labels(new.d, f7bage = "age quit smoking")
  temp.d <- data.frame (new.d, f7bage)  
  
  result<-questionr::freq(temp.d$f7bage,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "F7BAge. If yes, At what age did you quit?")
F7BAge. If yes, At what age did you quit?
n % val%
1 1 0.4 1.4
23 2 0.8 2.7
24 1 0.4 1.4
25 2 0.8 2.7
26 2 0.8 2.7
27 1 0.4 1.4
28 2 0.8 2.7
30 8 3.3 10.8
32 2 0.8 2.7
35 2 0.8 2.7
38 2 0.8 2.7
40 3 1.2 4.1
41 1 0.4 1.4
43 2 0.8 2.7
44 1 0.4 1.4
45 5 2.1 6.8
46 2 0.8 2.7
49 1 0.4 1.4
50 6 2.5 8.1
55 7 2.9 9.5
56 2 0.8 2.7
57 1 0.4 1.4
58 1 0.4 1.4
59 1 0.4 1.4
60 1 0.4 1.4
61 2 0.8 2.7
62 2 0.8 2.7
63 2 0.8 2.7
65 2 0.8 2.7
66 1 0.4 1.4
68 2 0.8 2.7
69 2 0.8 2.7
71 1 0.4 1.4
78 1 0.4 1.4
NA 167 69.3 NA
Total 241 100.0 100.0

G1: Marital status

  • G1. What is your current marital status?
    • 1=Married, or living with a partner
    • 2=Separated
    • 3=Divorced
    • 4=Widowed
    • 5=Never Married
  g1 <- as.factor(d[,"g1"])
  # Make "*" to NA
g1[which(g1=="*")]<-"NA"
  levels(g1) <- list(Married_partner="1",
                     Separated="2",
                     Divorced="3",
                     Widowed="4",
                     Never_Married="5")
  g1 <- ordered(g1, c("Married_partner","Separated","Divorced","Widowed","Never_Married"))
  
  new.d <- data.frame(new.d, g1)
  new.d <- apply_labels(new.d, g1 = "marital status")
  temp.d <- data.frame (new.d, g1)  
  
  result<-questionr::freq(temp.d$g1,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "g1")
g1
n % val% %cum val%cum
Married_partner 121 50.2 51.7 50.2 51.7
Separated 15 6.2 6.4 56.4 58.1
Divorced 37 15.4 15.8 71.8 73.9
Widowed 13 5.4 5.6 77.2 79.5
Never_Married 48 19.9 20.5 97.1 100.0
NA 7 2.9 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

G2: With whom do you live

  • G2. With whom do you live? Mark all that apply.
    • G2_1: 1=Live alone
    • G2_2: 1=A spouse or partner
    • G2_3: 1=Other family
    • G2_4: 1=Other people (non-family)
    • G2_5: 1=Pets
  g2_1 <- as.factor(d[,"g2_1"])
  levels(g2_1) <- list(Live_alone="1")

  new.d <- data.frame(new.d, g2_1)
  new.d <- apply_labels(new.d, g2_1 = "Live alone")
  temp.d <- data.frame (new.d, g2_1)  
  
  result<-questionr::freq(temp.d$g2_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g2_1: Live alone")
g2_1: Live alone
n % val%
Live_alone 62 25.7 100
NA 179 74.3 NA
Total 241 100.0 100 
  g2_2 <- as.factor(d[,"g2_2"])
  levels(g2_2) <- list(spouse_partner="1")

  new.d <- data.frame(new.d, g2_2)
  new.d <- apply_labels(new.d, g2_2 = "A spouse or partner")
  temp.d <- data.frame (new.d, g2_2)  
  
  result<-questionr::freq(temp.d$g2_2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g2_2: A spouse or partner")
g2_2: A spouse or partner
n % val%
spouse_partner 135 56 100
NA 106 44 NA
Total 241 100 100 
  g2_3 <- as.factor(d[,"g2_3"])
  levels(g2_3) <- list(Other_family="1")

  new.d <- data.frame(new.d, g2_3)
  new.d <- apply_labels(new.d, g2_3 = "Other family")
  temp.d <- data.frame (new.d, g2_3)  
  
  result<-questionr::freq(temp.d$g2_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g2_3: Other family")
g2_3: Other family
n % val%
Other_family 41 17 100
NA 200 83 NA
Total 241 100 100 
  g2_4 <- as.factor(d[,"g2_4"])
  levels(g2_4) <- list(Other_non_family="1")

  new.d <- data.frame(new.d, g2_4)
  new.d <- apply_labels(new.d, g2_4 = "Other people (non-family)")
  temp.d <- data.frame (new.d, g2_4)  
  
  result<-questionr::freq(temp.d$g2_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g2_4: Other people (non-family)")
g2_4: Other people (non-family)
n % val%
Other_non_family 10 4.1 100
NA 231 95.9 NA
Total 241 100.0 100 
  g2_5 <- as.factor(d[,"g2_5"])
  levels(g2_5) <- list(Pets="1")

  new.d <- data.frame(new.d, g2_5)
  new.d <- apply_labels(new.d, g2_5 = "Pets")
  temp.d <- data.frame (new.d, g2_5)  
  
  result<-questionr::freq(temp.d$g2_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g2_5: Pets")
g2_5: Pets
n % val%
Pets 13 5.4 100
NA 228 94.6 NA
Total 241 100.0 100

G3: Identify yourself

  • G3. How do you identify yourself?
    • 1=Straight/heterosexual
    • 2=Bisexual
    • 3=Gay/homosexual/same gender loving
    • 4=Other
    • 99=Prefer not to answer
  g3 <- as.factor(d[,"g3"])
  # Make "*" to NA
g3[which(g3=="*")]<-"NA"
  levels(g3) <- list(heterosexual="1",
                      Bisexual="2",
                       homosexual="3",
                       Other="4",
                       Prefer_not_to_answer="99")
  g3 <- ordered(g3, c("heterosexual","Bisexual","homosexual","Other","Prefer_not_to_answer"))

  new.d <- data.frame(new.d, g3)
  new.d <- apply_labels(new.d, g3 = "identify yourself")
  temp.d <- data.frame (new.d, g3)  
  
  result<-questionr::freq(temp.d$g3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g3")
g3
n % val%
heterosexual 222 92.1 96.9
Bisexual 0 0.0 0.0
homosexual 3 1.2 1.3
Other 0 0.0 0.0
Prefer_not_to_answer 4 1.7 1.7
NA 12 5.0 NA
Total 241 100.0 100.0

G3 Other: Identify yourself

g3other <- d[,"g3other"]
  new.d <- data.frame(new.d, g3other)
  new.d <- apply_labels(new.d, g3other = "g3other")
  temp.d <- data.frame (new.d, g3other)
result<-questionr::freq(temp.d$g3other, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "G3 Other")
G3 Other
n % val%
Normal man 1 0.4 33.3
Not gay thank God. 1 0.4 33.3
With a woman 1 0.4 33.3
NA 238 98.8 NA
Total 241 100.0 100.0

G4: Education

  • G4. What is the HIGHEST level of education you, your father, and your mother have completed?
    • 1=Grade school or less
    • 2=Some high school
    • 3=High school graduate or GED
    • 4=Vocational school
    • 5=Some college
    • 6=Associate’s degree
    • 7=College graduate (Bachelor’s degree)
    • 8=Some graduate education
    • 9=Graduate degree
    • 88=Don’t know
  g4a <- as.factor(d[,"g4a"])
  # Make "*" to NA
g4a[which(g4a=="*")]<-"NA"
  levels(g4a) <- list(Grade_school_or_less="1",
                      Some_high_school="2",
                       High_school_graduate_GED="3",
                       Vocational_school="4",
                      Some_college="5",
                      Associate_degree="6",
                      College_graduate="7",
                      Some_graduate_education="8",
                      Graduate_degree="9")
  g4a <- ordered(g4a, c("Grade_school_or_less","Some_high_school","High_school_graduate_GED","Vocational_school","Some_college","Associate_degree","College_graduate","Some_graduate_education","Graduate_degree"))

  new.d <- data.frame(new.d, g4a)
  new.d <- apply_labels(new.d, g4a = "education")
  temp.d <- data.frame (new.d, g4a)  
  
  result<-questionr::freq(temp.d$g4a,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g4a: You")
g4a: You
n % val%
Grade_school_or_less 6 2.5 2.7
Some_high_school 24 10.0 10.7
High_school_graduate_GED 67 27.8 29.8
Vocational_school 6 2.5 2.7
Some_college 53 22.0 23.6
Associate_degree 22 9.1 9.8
College_graduate 20 8.3 8.9
Some_graduate_education 6 2.5 2.7
Graduate_degree 21 8.7 9.3
NA 16 6.6 NA
Total 241 100.0 100.0 
  g4b <- as.factor(d[,"g4b"])
    # Make "*" to NA
g4b[which(g4b=="*")]<-"NA"
  levels(g4b) <- list(Grade_school_or_less="1",
                      Some_high_school="2",
                       High_school_graduate_GED="3",
                       Vocational_school="4",
                      Some_college="5",
                      Associate_degree="6",
                      College_graduate="7",
                      Some_graduate_education="8",
                      Graduate_degree="9",
                      Dont_know="88")
  g4b <- ordered(g4b, c("Grade_school_or_less","Some_high_school","High_school_graduate_GED","Vocational_school","Some_college","Associate_degree","College_graduate","Some_graduate_education","Graduate_degree","Dont_know"))

  new.d <- data.frame(new.d, g4b)
  new.d <- apply_labels(new.d, g4b = "education-father")
  temp.d <- data.frame (new.d, g4b)  
  
  result<-questionr::freq(temp.d$g4b,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g4b: Your father")
g4b: Your father
n % val%
Grade_school_or_less 38 15.8 19.2
Some_high_school 36 14.9 18.2
High_school_graduate_GED 56 23.2 28.3
Vocational_school 4 1.7 2.0
Some_college 6 2.5 3.0
Associate_degree 2 0.8 1.0
College_graduate 3 1.2 1.5
Some_graduate_education 0 0.0 0.0
Graduate_degree 4 1.7 2.0
Dont_know 49 20.3 24.7
NA 43 17.8 NA
Total 241 100.0 100.0 
  g4c <- as.factor(d[,"g4c"])
    # Make "*" to NA
g4c[which(g4c=="*")]<-"NA"
  levels(g4c) <- list(Grade_school_or_less="1",
                      Some_high_school="2",
                       High_school_graduate_GED="3",
                       Vocational_school="4",
                      Some_college="5",
                      Associate_degree="6",
                      College_graduate="7",
                      Some_graduate_education="8",
                      Graduate_degree="9",
                      Dont_know="88")
  g4c <- ordered(g4c, c("Grade_school_or_less","Some_high_school","High_school_graduate_GED","Vocational_school","Some_college","Associate_degree","College_graduate","Some_graduate_education","Graduate_degree","Dont_know"))

  new.d <- data.frame(new.d, g4c)
  new.d <- apply_labels(new.d, g4c = "education-mother")
  temp.d <- data.frame (new.d, g4c)  
  
  result<-questionr::freq(temp.d$g4c,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g4c: Your mother")
g4c: Your mother
n % val%
Grade_school_or_less 27 11.2 13.6
Some_high_school 30 12.4 15.1
High_school_graduate_GED 76 31.5 38.2
Vocational_school 4 1.7 2.0
Some_college 7 2.9 3.5
Associate_degree 4 1.7 2.0
College_graduate 7 2.9 3.5
Some_graduate_education 1 0.4 0.5
Graduate_degree 5 2.1 2.5
Dont_know 38 15.8 19.1
NA 42 17.4 NA
Total 241 100.0 100.0

G5: Job

  • G5. Which one of the following best describes what you currently do?
    • 1=Currently working full-time
    • 2=Currently working part-time
    • 3=Looking for work, unemployed
    • 4=Retired
    • 5=On disability permanently
    • 6=On disability for a period of time (on sick leave or paternity leave or disability leave for other reasons)
    • 7=Volunteer work/work without pay
    • 8=Other
  g5 <- as.factor(d[,"g5"])
  # Make "*" to NA
g5[which(g5=="*")]<-"NA"
  levels(g5) <- list(full_time="1",
                     part_time="2",
                     unemployed="3",
                     Retired="4",
                     disability_permanently="5",
                     disability_for_a_time="6",
                     Volunteer_work="7",
                     Other="8")
  g5 <- ordered(g5, c("full_time","part_time","unemployed","Retired","disability_permanently","disability_for_a_time", "Volunteer_work","Other"))

  new.d <- data.frame(new.d, g5)
  new.d <- apply_labels(new.d, g5 = "job")
  temp.d <- data.frame (new.d, g5)  
  
  result<-questionr::freq(temp.d$g5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g5")
g5
n % val%
full_time 27 11.2 12.0
part_time 12 5.0 5.3
unemployed 6 2.5 2.7
Retired 116 48.1 51.6
disability_permanently 54 22.4 24.0
disability_for_a_time 5 2.1 2.2
Volunteer_work 1 0.4 0.4
Other 4 1.7 1.8
NA 16 6.6 NA
Total 241 100.0 100.0

G5 Other: job

g5other <- d[,"g5other"]
  new.d <- data.frame(new.d, g5other)
  new.d <- apply_labels(new.d, g5other = "g5other")
  temp.d <- data.frame (new.d, g5other)
result<-questionr::freq(temp.d$g5other, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "G5 Other")
G5 Other
n % val%
Corona virus shut down 1 0.4 10
Do help my daughter with cleaning offices. 1 0.4 10
Pandemic furlough since 3-2020. 1 0.4 10
Part time business owner of ACN. 1 0.4 10
Retired but would love to work. 1 0.4 10
Seeking disability. 1 0.4 10
Self employed 1 0.4 10
Self employed martial arts instructor —- 1 0.4 10
Self-employed (caterer). 1 0.4 10
SSI 1 0.4 10
NA 231 95.9 NA
Total 241 100.0 100

G6: Health insurance

  • G6. What kind of health insurance or health care coverage do you currently have? Mark all that apply.
    • G6_1: 1=Insurance provided through my current or former employer or union (including Kaiser/HMO/PPO)
    • G6_2: 1=Insurance provided by another family member (e.g., spouse) through their current or former employer or union (including Kaiser/HMO/PPO)
    • G6_3: 1=Insurance purchased directly from an insurance company (by you or another family member)
    • G6_4: 1=Insurance purchased from an exchange (sometimes called Obamacare or the Affordable Care Act)
    • G6_5: 1= Medicaid or other state provided insurance
    • G6_6: 1=Medicare/government insurance
    • G6_7: 1=VA/Military Facility (including those who have ever used or enrolled for VA health care)
    • G6_8: 1=I do not have any medical insurance
  g6_1 <- as.factor(d[,"g6_1"])
  levels(g6_1) <- list(Insurance_employer="1")
  new.d <- data.frame(new.d, g6_1)
  new.d <- apply_labels(new.d, g6_1 = "Insurance_employer")
  temp.d <- data.frame (new.d, g6_1)  
  result<-questionr::freq(temp.d$g6_1,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "G6_1. Insurance provided through my current or former employer or union (including Kaiser/HMO/PPO)")
G6_1. Insurance provided through my current or former employer or union (including Kaiser/HMO/PPO)
n % val%
Insurance_employer 78 32.4 100
NA 163 67.6 NA
Total 241 100.0 100 
  g6_2 <- as.factor(d[,"g6_2"])
  levels(g6_2) <- list(Insurance_family="1")
  new.d <- data.frame(new.d, g6_2)
  new.d <- apply_labels(new.d, g6_2 = "Insurance_family")
  temp.d <- data.frame (new.d, g6_2)  
  result<-questionr::freq(temp.d$g6_2,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "G6_2. Insurance provided by another family member (e.g., spouse) through their current or former employer or union (including Kaiser/HMO/PPO)")
G6_2. Insurance provided by another family member (e.g., spouse) through their current or former employer or union (including Kaiser/HMO/PPO)
n % val%
Insurance_family 29 12 100
NA 212 88 NA
Total 241 100 100 
  g6_3 <- as.factor(d[,"g6_3"])
  levels(g6_3) <- list(Insurance_insurance_company="1")
  new.d <- data.frame(new.d, g6_3)
  new.d <- apply_labels(new.d, g6_3 = "Insurance_insurance_company")
  temp.d <- data.frame (new.d, g6_3)  
  result<-questionr::freq(temp.d$g6_3,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "G6_3. Insurance purchased directly from an insurance company (by you or another family member)")
G6_3. Insurance purchased directly from an insurance company (by you or another family member)
n % val%
Insurance_insurance_company 13 5.4 100
NA 228 94.6 NA
Total 241 100.0 100 
  g6_4 <- as.factor(d[,"g6_4"])
  levels(g6_4) <- list(Insurance_exchange="1")
  new.d <- data.frame(new.d, g6_4)
  new.d <- apply_labels(new.d, g6_4 = "Insurance_exchange")
  temp.d <- data.frame (new.d, g6_4)  
  result<-questionr::freq(temp.d$g6_4,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "G6_4. Insurance purchased from an exchange (sometimes called Obamacare or the Affordable Care Act)")
G6_4. Insurance purchased from an exchange (sometimes called Obamacare or the Affordable Care Act)
n % val%
Insurance_exchange 8 3.3 100
NA 233 96.7 NA
Total 241 100.0 100 
  g6_5 <- as.factor(d[,"g6_5"])
  levels(g6_5) <- list(Medicaid_state="1")
  new.d <- data.frame(new.d, g6_5)
  new.d <- apply_labels(new.d, g6_5 = "Medicaid_state")
  temp.d <- data.frame (new.d, g6_5)  
  result<-questionr::freq(temp.d$g6_5,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "G6_5. Medicaid or other state provided insurance")
G6_5. Medicaid or other state provided insurance
n % val%
Medicaid_state 70 29 100
NA 171 71 NA
Total 241 100 100 
  g6_6 <- as.factor(d[,"g6_6"])
  levels(g6_6) <- list(Medicare_government="1")
  new.d <- data.frame(new.d, g6_6)
  new.d <- apply_labels(new.d, g6_6 = "Medicare_government")
  temp.d <- data.frame (new.d, g6_6)  
  result<-questionr::freq(temp.d$g6_6,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "G6_6. Medicare/government insurance")
G6_6. Medicare/government insurance
n % val%
Medicare_government 107 44.4 100
NA 134 55.6 NA
Total 241 100.0 100 
  g6_7 <- as.factor(d[,"g6_7"])
  levels(g6_7) <- list(VA_Military="1")
  new.d <- data.frame(new.d, g6_7)
  new.d <- apply_labels(new.d, g6_7 = "VA_Military")
  temp.d <- data.frame (new.d, g6_7)  
  result<-questionr::freq(temp.d$g6_7,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "G6_7. VA/Military Facility (including those who have ever used or enrolled for VA health care)")
G6_7. VA/Military Facility (including those who have ever used or enrolled for VA health care)
n % val%
VA_Military 15 6.2 100
NA 226 93.8 NA
Total 241 100.0 100 
  g6_8 <- as.factor(d[,"g6_8"])
  levels(g6_8) <- list(Do_not_have="1")
  new.d <- data.frame(new.d, g6_8)
  new.d <- apply_labels(new.d, g6_8 = "Do_not_have")
  temp.d <- data.frame (new.d, g6_8)  
  result<-questionr::freq(temp.d$g6_8,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "G6_8. I do not have any medical insurance")
G6_8. I do not have any medical insurance
n % val%
Do_not_have 1 0.4 100
NA 240 99.6 NA
Total 241 100.0 100

G7: Income

  • G7. What is your best estimate of your TOTAL FAMILY INCOME from all sources, before taxes, in the last calendar year? “Total family income” refers to your income PLUS the income of all family members living in this household (including cohabiting partners, and armed forces members living at home). This includes money from pay checks, government benefit programs, child support, social security, retirement funds, unemployment benefits, and disability.
    • 1=Less than $15,000
    • 2=$15,000 to $35,999
    • 3=$36,000 to $45,999
    • 4=$46,000 to $65,999
    • 5=$66,000 to $99,999
    • 6=$100,000 to $149,999
    • 7=$150,000 to $199,999
    • 8= $200,000 or more
  g7 <- as.factor(d[,"g7"])
  # Make "*" to NA
g7[which(g7=="*")]<-"NA"
  levels(g7) <- list(Less_than_15000="1",
                     Between_15000_35999="2",
                     Between_36000_45999="3",
                     Between_46000_65999="4",
                     Between_66000_99999="5",
                     Between_100000_149999= "6",
                     Between_150000_199999="7",
                     More_than_200000="8")
  g7 <- ordered(g7, c("Less_than_15000","Between_15000_35999","Between_36000_45999","Between_46000_65999","Between_66000_99999","Between_100000_149999", "Between_150000_199999","More_than_200000"))

  new.d <- data.frame(new.d, g7)
  new.d <- apply_labels(new.d, g7 = "income")
  temp.d <- data.frame (new.d, g7)  
  
  result<-questionr::freq(temp.d$g7,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g7")
g7
n % val% %cum val%cum
Less_than_15000 61 25.3 28.2 25.3 28.2
Between_15000_35999 36 14.9 16.7 40.2 44.9
Between_36000_45999 20 8.3 9.3 48.5 54.2
Between_46000_65999 41 17.0 19.0 65.6 73.1
Between_66000_99999 31 12.9 14.4 78.4 87.5
Between_100000_149999 20 8.3 9.3 86.7 96.8
Between_150000_199999 1 0.4 0.5 87.1 97.2
More_than_200000 6 2.5 2.8 89.6 100.0
NA 25 10.4 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

G8: # people supported by income

  • G8. In the last calendar year, how many people, including yourself, were supported by your family income?
    • 1=1
    • 2=2
    • 3=3
    • 4=4
    • 5=5 or more
  g8 <- as.factor(d[,"g8"])
  # Make "*" to NA
g8[which(g8=="*")]<-"NA"
  levels(g8) <- list(One="1",
                     Two="2",
                     Three="3",
                     Four="4",
                     Five_or_more="5")
  g8 <- ordered(g8, c("One","Two","Three","Four","Five_or_more"))

  new.d <- data.frame(new.d, g8)
  new.d <- apply_labels(new.d, g8 = "people supported by income")
  temp.d <- data.frame (new.d, g8)  
  
  result<-questionr::freq(temp.d$g8,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g8")
g8
n % val% %cum val%cum
One 100 41.5 44.1 41.5 44.1
Two 85 35.3 37.4 76.8 81.5
Three 19 7.9 8.4 84.6 89.9
Four 16 6.6 7.0 91.3 96.9
Five_or_more 7 2.9 3.1 94.2 100.0
NA 14 5.8 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

G9: Worry about finance

  • G9. How worried were you or your family about being able to pay your normal monthly bills, including rent, mortgage, and/or other costs:
      1. During young adult life (up to age 30):
      1. Age 31 (up to just before prostate cancer diagnosis):
      1. Current (from prostate cancer diagnosis to present):
      • 1=Not at all worried
      • 2=A little worried
      • 3=Somewhat worried
      • 4=Very worried
  g9a <- as.factor(d[,"g9a"])
  # Make "*" to NA
g9a[which(g9a=="*")]<-"NA"
  levels(g9a) <- list(Not_worried="1",
                      A_little_worried="2",
                      Somewhat_worried="3",
                      Very_worried="4")
  new.d <- data.frame(new.d, g9a)
  new.d <- apply_labels(new.d, g9a = "young adult life")
  temp.d <- data.frame (new.d, g9a)  
  result<-questionr::freq(temp.d$g9a,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "a. During young adult life (up to age 30)")
a. During young adult life (up to age 30)
n % val%
Not_worried 116 48.1 50.0
A_little_worried 58 24.1 25.0
Somewhat_worried 43 17.8 18.5
Very_worried 15 6.2 6.5
NA 9 3.7 NA
Total 241 100.0 100.0 
  g9b <- as.factor(d[,"g9b"])
    # Make "*" to NA
g9b[which(g9b=="*")]<-"NA"
  levels(g9b) <- list(Not_worried="1",
                      A_little_worried="2",
                      Somewhat_worried="3",
                      Very_worried="4")
  new.d <- data.frame(new.d, g9b)
  new.d <- apply_labels(new.d, g9b = "age 31 up to before dx")
  temp.d <- data.frame (new.d, g9b)  
  result<-questionr::freq(temp.d$g9b,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "b. Age 31 (up to just before prostate cancer diagnosis)")
b. Age 31 (up to just before prostate cancer diagnosis)
n % val%
Not_worried 125 51.9 56.1
A_little_worried 54 22.4 24.2
Somewhat_worried 30 12.4 13.5
Very_worried 14 5.8 6.3
NA 18 7.5 NA
Total 241 100.0 100.0 
  g9c <- as.factor(d[,"g9c"])
    # Make "*" to NA
g9c[which(g9c=="*")]<-"NA"
  levels(g9c) <- list(Not_worried="1",
                      A_little_worried="2",
                      Somewhat_worried="3",
                      Very_worried="4")
  new.d <- data.frame(new.d, g9c)
  new.d <- apply_labels(new.d, g9c = "current")
  temp.d <- data.frame (new.d, g9c)  
  result<-questionr::freq(temp.d$g9c,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "c. Current (from prostate cancer diagnosis to present)")
c. Current (from prostate cancer diagnosis to present)
n % val%
Not_worried 122 50.6 53.7
A_little_worried 50 20.7 22.0
Somewhat_worried 30 12.4 13.2
Very_worried 25 10.4 11.0
NA 14 5.8 NA
Total 241 100.0 100.0

G10:Own or rent a house

  • G10. Is the home you live in:
    • 1=Owned or being bought by you (or someone in the household)?
    • 2=Rented for money?
    • 3=Other
  g10 <- as.factor(d[,"g10"])
  # Make "*" to NA
g10[which(g10=="*")]<-"NA"
  levels(g10) <- list(Owned="1",
                     Rented="2",
                     Other="3")
  g10 <- ordered(g10, c("Owned","Rented","Other"))

  new.d <- data.frame(new.d, g10)
  new.d <- apply_labels(new.d, g10 = "Own or rent a house")
  temp.d <- data.frame (new.d, g10)  
  
  result<-questionr::freq(temp.d$g10,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g10")
g10
n % val% %cum val%cum
Owned 146 60.6 64.9 60.6 64.9
Rented 67 27.8 29.8 88.4 94.7
Other 12 5.0 5.3 93.4 100.0
NA 16 6.6 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

G10 Other: Own or rent a house

g10other <- d[,"g10other"]
  new.d <- data.frame(new.d, g10other)
  new.d <- apply_labels(new.d, g10other = "g10other")
  temp.d <- data.frame (new.d, g10other)
result<-questionr::freq(temp.d$g10other, total = TRUE)
  kable(result, format = "simple", align = 'l', caption = "G10 Other")
G10 Other
n % val%
Apartment 1 0.4 6.2
Apartment. 1 0.4 6.2
Foreclosure. 1 0.4 6.2
His house 1 0.4 6.2
House fire necessitated a rental home till home is repaired. 1 0.4 6.2
I rent a furnished room and kitchen priv. 1 0.4 6.2
Live in low income. 1 0.4 6.2
My sister’s house. 1 0.4 6.2
Nursing home 1 0.4 6.2
Paid for 1 0.4 6.2
Rent 1 0.4 6.2
Reverse mortgage 1 0.4 6.2
Senior Public Housing 1 0.4 6.2
Sisters house 1 0.4 6.2
Squatted. 1 0.4 6.2
Staying with a friend. 1 0.4 6.2
NA 225 93.4 NA
Total 241 100.0 100.0

G11:Lose current sources

  • G11. If you lost all your current source(s) of household income (your paycheck, public assistance, or other forms of income), how long could you continue to live at your current address and standard of living?
    • 1=Less than 1 month
    • 2=1 to 2 months
    • 3=3 to 6 months
    • 4=More than 6 months
  g11 <- as.factor(d[,"g11"])
  # Make "*" to NA
g11[which(g11=="*")]<-"NA"
  levels(g11) <- list(Less_than_1_month="1",
                     One_to_two_month="2",
                     Three_to_six_month="3",
                     More_than_6_months="4")
  g11 <- ordered(g11, c("Less_than_1_month","One_to_two_month","Three_to_six_month","More_than_6_months"))

  new.d <- data.frame(new.d, g11)
  new.d <- apply_labels(new.d, g11 = "ose current sources")
  temp.d <- data.frame (new.d, g11)  
  
  result<-questionr::freq(temp.d$g11,cum=TRUE,total = TRUE)
  kable(result, format = "simple", align = 'l', caption = " g11")
g11
n % val% %cum val%cum
Less_than_1_month 48 19.9 21.9 19.9 21.9
One_to_two_month 49 20.3 22.4 40.2 44.3
Three_to_six_month 44 18.3 20.1 58.5 64.4
More_than_6_months 78 32.4 35.6 90.9 100.0
NA 22 9.1 NA 100.0 NA
Total 241 100.0 100.0 100.0 100.0

G12: Today’s date

  • G12. Please enter today’s date.
  g12 <- as.Date(d[ , "g12"], format="%m/%d/%y")
  new.d <- data.frame(new.d, g12)
  new.d <- apply_labels(new.d, g12 = "today’s date")
  #temp.d <- data.frame (new.d.1, g12) 
  
  summarytools::view(dfSummary(new.d$g12, style = 'grid',
                               max.distinct.values = 5, plain.ascii = FALSE, valid.col = FALSE, headings = FALSE), method = "render")
No Variable Label Stats / Values Freqs (% of Valid) Graph Missing
1 g12 [labelled, Date] today’s date
min : 2019-08-06
med : 2020-05-29
max : 2020-12-28
range : 1y 4m 22d
 154 distinct values 2 (0.8%)

Generated by summarytools 1.0.0 (R version 3.6.3)
2021-12-09